/ Acorn RISC PD-CD 1 / Acorn RISC PD-CD 1.iso / utilities / powerbase / _importer / xrunimage

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1f f4 3e 20 3c | 49 6d 70 6f 72 74 65 72 |.....> <|Importer|
|00000010| 24 44 69 72 3e 2e 21 52 | 75 6e 49 6d 61 67 65 0d |$Dir>.!R|unImage.|
|00000020| 00 14 05 f4 0d 00 1e 51 | f4 3d 3d 3d 3d 3d 3d 3d |.......Q|.=======|
|00000030| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000040| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000050| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000060| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000070| 3d 3d 3d 3d 3b 0d 00 28 | 0f f4 20 20 49 6d 70 6f |====;..(|..  Impo|
|00000080| 72 74 65 72 0d 00 32 05 | f4 0d 00 3c 1b f4 20 20 |rter..2.|...<..  |
|00000090| 50 68 69 6c 20 4d 61 72 | 74 69 6e 20 32 37 2f 31 |Phil Mar|tin 27/1|
|000000a0| 31 2f 39 30 0d 00 46 05 | f4 0d 00 50 2f f4 20 20 |1/90..F.|...P/.  |
|000000b0| 43 6f 70 79 72 69 67 68 | 74 20 31 39 39 31 20 43 |Copyrigh|t 1991 C|
|000000c0| 6f 6d 70 75 74 65 72 20 | 43 6f 6e 63 65 70 74 73 |omputer |Concepts|
|000000d0| 20 4c 69 6d 69 74 65 64 | 0d 00 5a 05 f4 0d 00 64 | Limited|..Z....d|
|000000e0| 31 f4 20 20 53 69 6d 70 | 6c 65 20 6d 61 69 6c 2d |1.  Simp|le mail-|
|000000f0| 6d 65 72 67 65 20 64 61 | 74 61 62 61 73 65 20 66 |merge da|tabase f|
|00000100| 6f 72 20 49 6d 70 72 65 | 73 73 69 6f 6e 2e 0d 00 |or Impre|ssion...|
|00000110| 6e 4f f4 20 20 55 73 65 | 73 20 74 68 65 20 49 6d |nO.  Use|s the Im|
|00000120| 70 75 6c 73 65 20 68 69 | 67 68 2d 6c 65 76 65 6c |pulse hi|gh-level|
|00000130| 20 6d 65 73 73 61 67 65 | 20 70 61 73 73 69 6e 67 | message| passing|
|00000140| 20 73 79 73 74 65 6d 20 | 74 6f 20 74 61 6c 6b 20 | system |to talk |
|00000150| 74 6f 20 49 6d 70 72 65 | 73 73 69 6f 6e 0d 00 78 |to Impre|ssion..x|
|00000160| 3a f4 20 20 28 6f 72 20 | 61 6e 79 20 6f 74 68 65 |:.  (or |any othe|
|00000170| 72 20 70 72 6f 67 72 61 | 6d 20 73 75 70 70 6f 72 |r progra|m suppor|
|00000180| 74 69 6e 67 20 74 68 65 | 20 73 61 6d 65 20 6d 65 |ting the| same me|
|00000190| 74 68 6f 64 73 29 2e 0d | 00 82 05 f4 0d 00 8c 47 |thods)..|.......G|
|000001a0| f4 20 20 54 68 61 6e 6b | 73 20 74 6f 20 44 61 76 |.  Thank|s to Dav|
|000001b0| 65 20 44 65 56 6f 72 63 | 68 69 6b 20 61 6e 64 20 |e DeVorc|hik and |
|000001c0| 43 68 72 69 73 20 4d 75 | 72 72 61 79 20 66 6f 72 |Chris Mu|rray for|
|000001d0| 20 72 6f 75 74 69 6e 65 | 73 20 73 75 70 70 6c 69 | routine|s suppli|
|000001e0| 65 64 2e 0d 00 96 05 f4 | 0d 00 a0 48 f4 20 20 49 |ed......|...H.  I|
|000001f0| 6d 70 6f 72 74 65 72 20 | 69 73 20 61 6e 20 49 6d |mporter |is an Im|
|00000200| 70 75 6c 73 65 20 53 65 | 72 76 65 72 20 61 6e 64 |pulse Se|rver and|
|00000210| 20 73 75 70 70 6f 72 74 | 73 20 74 68 65 20 66 6f | support|s the fo|
|00000220| 6c 6c 6f 77 69 6e 67 20 | 6d 65 74 68 6f 64 73 3a |llowing |methods:|
|00000230| 0d 00 aa 20 f4 20 20 20 | 20 20 47 65 74 46 69 65 |... .   |  GetFie|
|00000240| 6c 64 20 3c 66 69 65 6c | 64 6e 75 6d 62 65 72 3e |ld <fiel|dnumber>|
|00000250| 0d 00 b4 23 f4 20 20 20 | 20 20 47 65 74 44 61 74 |...#.   |  GetDat|
|00000260| 61 20 3c 42 41 53 49 43 | 65 78 70 72 65 73 73 69 |a <BASIC|expressi|
|00000270| 6f 6e 3e 0d 00 be 24 f4 | 20 20 20 20 20 47 65 74 |on>...$.|     Get|
|00000280| 54 69 6d 65 44 61 74 65 | 20 3c 46 6f 72 6d 61 74 |TimeDate| <Format|
|00000290| 53 74 72 69 6e 67 3e 0d | 00 c8 05 f4 0d 00 d2 51 |String>.|.......Q|
|000002a0| f4 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |.=======|========|
|000002b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000002c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000002d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000002e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3b 0d 00 dc |========|====;...|
|000002f0| 04 0d 00 e6 35 f4 4f 4e | 20 45 52 52 4f 52 20 50 |....5.ON| ERROR P|
|00000300| 52 49 4e 54 52 45 50 4f | 52 54 24 3b 22 20 64 75 |RINTREPO|RT$;" du|
|00000310| 72 69 6e 67 20 69 6e 69 | 74 20 61 74 20 22 3b 45 |ring ini|t at ";E|
|00000320| 52 4c 3a 45 4e 44 0d 00 | f0 04 0d 00 fa 1f c8 9b |RL:END..|........|
|00000330| 22 3c 49 6d 70 6f 72 74 | 65 72 24 44 69 72 3e 2e |"<Import|er$Dir>.|
|00000340| 49 6d 70 42 69 6e 64 73 | 22 0d 01 04 04 0d 01 0e |ImpBinds|".......|
|00000350| 14 f2 53 65 74 49 6d 70 | 75 6c 73 65 42 69 6e 64 |..SetImp|ulseBind|
|00000360| 73 0d 01 18 09 f2 69 6e | 69 74 0d 01 22 0e f2 69 |s.....in|it.."..i|
|00000370| 6e 69 74 77 69 6d 70 73 | 0d 01 2c 14 f2 65 6e 73 |nitwimps|..,..ens|
|00000380| 75 72 65 77 69 6d 70 73 | 63 72 61 70 0d 01 36 04 |urewimps|crap..6.|
|00000390| 0d 01 40 0e ee 20 85 20 | f2 65 72 72 6f 72 0d 01 |..@.. . |.error..|
|000003a0| 4a 04 0d 01 54 05 f5 0d | 01 5e 2c 20 20 c8 99 20 |J...T...|.^,  .. |
|000003b0| 22 57 69 6d 70 5f 50 6f | 6c 6c 22 2c 70 6f 6c 6c |"Wimp_Po|ll",poll|
|000003c0| 6d 61 73 6b 2c 62 6c 6f | 63 6b 20 b8 20 72 65 61 |mask,blo|ck . rea|
|000003d0| 73 6f 6e 0d 01 68 61 20 | 20 c8 99 20 22 49 6d 70 |son..ha | .. "Imp|
|000003e0| 75 6c 73 65 5f 44 65 63 | 6f 64 65 22 2c 72 65 61 |ulse_Dec|ode",rea|
|000003f0| 73 6f 6e 2c 62 6c 6f 63 | 6b 2c 2c 2c 2c 6d 65 74 |son,bloc|k,,,,met|
|00000400| 68 6f 64 74 61 62 6c 65 | 2c 74 61 73 6b 68 61 6e |hodtable|,taskhan|
|00000410| 64 6c 65 20 b8 20 72 65 | 61 73 6f 6e 2c 2c 2c 2c |dle . re|ason,,,,|
|00000420| 2c 74 6f 6b 65 6e 2c 70 | 61 72 61 6d 73 2c 6f 62 |,token,p|arams,ob|
|00000430| 6a 65 63 74 0d 01 72 11 | 20 20 c8 8e 20 72 65 61 |ject..r.|  .. rea|
|00000440| 73 6f 6e 20 ca 0d 01 7c | 17 20 20 20 20 c9 20 30 |son ...||.    . 0|
|00000450| 20 20 20 20 20 3a 20 f2 | 6e 75 6c 6c 0d 01 86 28 |     : .|null...(|
|00000460| 20 20 20 20 c9 20 31 20 | 20 20 20 20 3a 20 f2 72 |    . 1 |    : .r|
|00000470| 65 64 72 61 77 77 69 6e | 64 6f 77 28 62 6c 6f 63 |edrawwin|dow(bloc|
|00000480| 6b 21 30 29 0d 01 90 26 | 20 20 20 20 c9 20 32 20 |k!0)...&|    . 2 |
|00000490| 20 20 20 20 3a 20 f2 6f | 70 65 6e 77 69 6e 64 6f |    : .o|penwindo|
|000004a0| 77 28 62 6c 6f 63 6b 21 | 30 29 0d 01 9a 27 20 20 |w(block!|0)...'  |
|000004b0| 20 20 c9 20 33 20 20 20 | 20 20 3a 20 f2 63 6c 6f |  . 3   |  : .clo|
|000004c0| 73 65 77 69 6e 64 6f 77 | 28 62 6c 6f 63 6b 21 30 |sewindow|(block!0|
|000004d0| 29 0d 01 a4 43 20 20 20 | 20 c9 20 36 20 20 20 20 |)...C   | . 6    |
|000004e0| 20 3a 20 f2 63 6c 69 63 | 6b 28 62 6c 6f 63 6b 21 | : .clic|k(block!|
|000004f0| 30 2c 62 6c 6f 63 6b 21 | 34 2c 62 6c 6f 63 6b 21 |0,block!|4,block!|
|00000500| 38 2c 62 6c 6f 63 6b 21 | 31 32 2c 62 6c 6f 63 6b |8,block!|12,block|
|00000510| 21 31 36 29 0d 01 ae 2d | 20 20 20 20 c9 20 31 37 |!16)...-|    . 17|
|00000520| 2c 31 38 20 3a 20 f2 6d | 65 73 73 61 67 65 28 62 |,18 : .m|essage(b|
|00000530| 6c 6f 63 6b 21 6d 65 73 | 73 5f 41 63 74 69 6f 6e |lock!mes|s_Action|
|00000540| 29 0d 01 b8 42 20 20 20 | 20 c9 20 31 39 20 20 20 |)...B   | . 19   |
|00000550| 20 3a 20 f2 75 6e 64 65 | 6c 69 76 65 72 65 64 28 | : .unde|livered(|
|00000560| 62 6c 6f 63 6b 21 6d 65 | 73 73 5f 41 63 74 69 6f |block!me|ss_Actio|
|00000570| 6e 2c 62 6c 6f 63 6b 21 | 6d 65 73 73 5f 4d 79 52 |n,block!|mess_MyR|
|00000580| 65 66 29 0d 01 c2 29 20 | 20 20 20 c9 20 49 6d 70 |ef)...) |   . Imp|
|00000590| 75 6c 73 65 5f 43 6f 6d | 6d 61 6e 64 2c 49 6d 70 |ulse_Com|mand,Imp|
|000005a0| 75 6c 73 65 5f 52 65 71 | 75 65 73 74 0d 01 cc 32 |ulse_Req|uest...2|
|000005b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a |        |       :|
|000005c0| 20 f2 63 6f 6d 6d 61 6e | 64 28 74 6f 6b 65 6e 2c | .comman|d(token,|
|000005d0| 70 61 72 61 6d 73 2c 6f | 62 6a 65 63 74 29 0d 01 |params,o|bject)..|
|000005e0| d6 17 20 20 20 20 c9 20 | 49 6d 70 75 6c 73 65 5f |..    . |Impulse_|
|000005f0| 52 65 70 6c 79 0d 01 e0 | 22 20 20 20 20 20 20 20 |Reply...|"       |
|00000600| 20 20 20 20 20 20 20 20 | 3a 20 f2 72 65 70 6c 79 |        |: .reply|
|00000610| 28 74 6f 6b 65 6e 29 0d | 01 ea 1a 20 20 20 20 c9 |(token).|...    .|
|00000620| 20 49 6d 70 75 6c 73 65 | 5f 53 65 6e 64 44 61 74 | Impulse|_SendDat|
|00000630| 61 0d 01 f4 33 20 20 20 | 20 20 20 20 20 20 20 20 |a...3   |        |
|00000640| 20 20 20 20 3a 20 f2 73 | 65 6e 64 64 61 74 61 28 |    : .s|enddata(|
|00000650| 74 6f 6b 65 6e 2c 70 61 | 72 61 6d 73 2c 6f 62 6a |token,pa|rams,obj|
|00000660| 65 63 74 29 0d 01 fe 07 | 20 20 cb 0d 02 08 0c fd |ect)....|  ......|
|00000670| 20 71 75 69 74 3d b9 0d | 02 12 04 0d 02 1c 0e f2 | quit=..|........|
|00000680| 65 78 69 74 77 69 6d 70 | 73 0d 02 26 04 0d 02 30 |exitwimp|s..&...0|
|00000690| 05 e0 0d 02 3a 04 0d 02 | 44 04 0d 02 4e 51 f4 2d |....:...|D...NQ.-|
|000006a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 3b 0d 02 58 2d f4 |--------|--;..X-.|
|000006f0| 20 20 49 6e 69 74 69 61 | 6c 69 73 69 6e 67 20 61 |  Initia|lising a|
|00000700| 6e 64 20 63 6c 6f 73 65 | 64 6f 77 6e 20 72 6f 75 |nd close|down rou|
|00000710| 74 69 6e 65 73 2e 2e 2e | 0d 02 62 04 0d 02 6c 0b |tines...|..b...l.|
|00000720| dd 20 f2 69 6e 69 74 0d | 02 76 12 f4 20 43 6f 6e |. .init.|.v.. Con|
|00000730| 73 74 61 6e 74 73 2e 2e | 2e 0d 02 80 20 20 20 61 |stants..|....   a|
|00000740| 70 70 69 63 6f 6e 24 20 | 20 20 20 20 20 3d 22 21 |ppicon$ |     ="!|
|00000750| 69 6d 70 6f 72 74 65 72 | 22 0d 02 8a 1f 20 20 61 |importer|"....  a|
|00000760| 70 70 6e 61 6d 65 24 20 | 20 20 20 20 20 3d 22 49 |ppname$ |     ="I|
|00000770| 6d 70 6f 72 74 65 72 22 | 0d 02 94 25 20 20 61 70 |mporter"|...%  ap|
|00000780| 70 64 69 72 24 20 20 20 | 20 20 20 20 3d 22 3c 49 |pdir$   |    ="<I|
|00000790| 6d 70 6f 72 74 65 72 24 | 44 69 72 3e 22 0d 02 9e |mporter$|Dir>"...|
|000007a0| 16 20 20 50 41 53 53 20 | 20 20 20 20 20 20 20 20 |.  PASS |        |
|000007b0| 20 3d 30 0d 02 a8 17 20 | 20 69 63 6f 6e 62 61 72 | =0.... | iconbar|
|000007c0| 20 20 20 20 20 20 20 3d | 2d 32 0d 02 b2 18 20 20 |       =|-2....  |
|000007d0| 65 6e 64 6f 66 6c 69 6e | 65 20 20 20 20 20 3d 26 |endoflin|e     =&|
|000007e0| 30 41 0d 02 bc 19 20 20 | 74 65 6d 70 62 6c 6f 63 |0A....  |tempbloc|
|000007f0| 6b 73 69 7a 65 20 3d 31 | 30 32 34 0d 02 c6 17 20 |ksize =1|024.... |
|00000800| 20 6d 61 78 66 69 65 6c | 64 20 20 20 20 20 20 3d | maxfiel|d      =|
|00000810| 31 36 0d 02 d0 18 20 20 | 65 64 69 74 73 73 69 7a |16....  |editssiz|
|00000820| 65 20 20 20 20 20 3d 31 | 36 30 0d 02 da 1a 20 20 |e     =1|60....  |
|00000830| 73 65 6c 65 63 74 20 20 | 20 20 20 20 20 20 3d 31 |select  |      =1|
|00000840| 3c 3c 32 31 0d 02 e4 1a | 20 20 67 72 65 79 20 20 |<<21....|  grey  |
|00000850| 20 20 20 20 20 20 20 20 | 3d 31 3c 3c 32 32 0d 02 |        |=1<<22..|
|00000860| ee 29 20 20 61 6c 6c 6f | 77 6e 75 6c 6c 73 20 20 |.)  allo|wnulls  |
|00000870| 20 20 3d 25 30 30 30 30 | 30 30 30 30 30 30 30 30 |  =%0000|00000000|
|00000880| 30 30 30 30 30 30 30 0d | 02 f8 29 20 20 70 72 65 |0000000.|..)  pre|
|00000890| 76 65 6e 74 6e 75 6c 6c | 73 20 20 3d 25 30 30 30 |ventnull|s  =%000|
|000008a0| 30 30 30 30 30 30 30 30 | 30 30 30 30 30 30 30 31 |00000000|00000001|
|000008b0| 0d 03 02 04 0d 03 0c 1d | f4 20 4d 65 73 73 61 67 |........|. Messag|
|000008c0| 65 20 61 63 74 69 6f 6e | 20 63 6f 64 65 73 2e 2e |e action| codes..|
|000008d0| 2e 0d 03 16 1f 20 20 4d | 65 73 73 61 67 65 5f 51 |.....  M|essage_Q|
|000008e0| 75 69 74 20 20 20 20 20 | 20 20 20 20 20 3d 20 30 |uit     |     = 0|
|000008f0| 0d 03 20 1f 20 20 4d 65 | 73 73 61 67 65 5f 44 61 |.. .  Me|ssage_Da|
|00000900| 74 61 53 61 76 65 20 20 | 20 20 20 20 3d 20 31 0d |taSave  |    = 1.|
|00000910| 03 2a 1f 20 20 4d 65 73 | 73 61 67 65 5f 44 61 74 |.*.  Mes|sage_Dat|
|00000920| 61 53 61 76 65 41 63 6b | 20 20 20 3d 20 32 0d 03 |aSaveAck|   = 2..|
|00000930| 34 1f 20 20 4d 65 73 73 | 61 67 65 5f 44 61 74 61 |4.  Mess|age_Data|
|00000940| 4c 6f 61 64 20 20 20 20 | 20 20 3d 20 33 0d 03 3e |Load    |  = 3..>|
|00000950| 1f 20 20 4d 65 73 73 61 | 67 65 5f 44 61 74 61 4c |.  Messa|ge_DataL|
|00000960| 6f 61 64 41 63 6b 20 20 | 20 3d 20 34 0d 03 48 1f |oadAck  | = 4..H.|
|00000970| 20 20 4d 65 73 73 61 67 | 65 5f 44 61 74 61 4f 70 |  Messag|e_DataOp|
|00000980| 65 6e 20 20 20 20 20 20 | 3d 20 35 0d 03 52 1f 20 |en      |= 5..R. |
|00000990| 20 4d 65 73 73 61 67 65 | 5f 52 41 4d 46 65 74 63 | Message|_RAMFetc|
|000009a0| 68 20 20 20 20 20 20 3d | 20 36 0d 03 5c 1f 20 20 |h      =| 6..\.  |
|000009b0| 4d 65 73 73 61 67 65 5f | 52 41 4d 54 72 61 6e 73 |Message_|RAMTrans|
|000009c0| 6d 69 74 20 20 20 3d 20 | 37 0d 03 66 1f 20 20 4d |mit   = |7..f.  M|
|000009d0| 65 73 73 61 67 65 5f 50 | 72 65 51 75 69 74 20 20 |essage_P|reQuit  |
|000009e0| 20 20 20 20 20 3d 20 38 | 0d 03 70 1f 20 20 4d 65 |     = 8|..p.  Me|
|000009f0| 73 73 61 67 65 5f 50 61 | 6c 65 74 74 65 43 68 61 |ssage_Pa|letteCha|
|00000a00| 6e 67 65 20 3d 20 39 0d | 03 7a 22 20 20 4d 65 73 |nge = 9.|.z"  Mes|
|00000a10| 73 61 67 65 5f 46 69 6c | 65 72 4f 70 65 6e 44 69 |sage_Fil|erOpenDi|
|00000a20| 72 20 20 3d 20 26 34 30 | 30 0d 03 84 22 20 20 4d |r  = &40|0..."  M|
|00000a30| 65 73 73 61 67 65 5f 46 | 69 6c 65 72 43 6c 6f 73 |essage_F|ilerClos|
|00000a40| 65 44 69 72 20 3d 20 26 | 34 30 31 0d 03 8e 22 20 |eDir = &|401..." |
|00000a50| 20 4d 65 73 73 61 67 65 | 5f 48 65 6c 70 52 65 71 | Message|_HelpReq|
|00000a60| 75 65 73 74 20 20 20 3d | 20 26 35 30 32 0d 03 98 |uest   =| &502...|
|00000a70| 22 20 20 4d 65 73 73 61 | 67 65 5f 48 65 6c 70 52 |"  Messa|ge_HelpR|
|00000a80| 65 71 75 65 73 74 41 63 | 6b 3d 20 26 35 30 33 0d |equestAc|k= &503.|
|00000a90| 03 a2 24 20 20 4d 65 73 | 73 61 67 65 5f 4e 6f 74 |..$  Mes|sage_Not|
|00000aa0| 69 66 79 20 20 20 20 20 | 20 20 20 3d 20 26 34 30 |ify     |   = &40|
|00000ab0| 30 34 30 0d 03 ac 24 20 | 20 4d 65 73 73 61 67 65 |040...$ | Message|
|00000ac0| 5f 4d 65 6e 75 57 61 72 | 6e 69 6e 67 20 20 20 3d |_MenuWar|ning   =|
|00000ad0| 20 26 34 30 30 43 30 0d | 03 b6 24 20 20 4d 65 73 | &400C0.|..$  Mes|
|00000ae0| 73 61 67 65 5f 4d 6f 64 | 65 43 68 61 6e 67 65 20 |sage_Mod|eChange |
|00000af0| 20 20 20 3d 20 26 34 30 | 30 43 31 0d 03 c0 24 20 |   = &40|0C1...$ |
|00000b00| 20 4d 65 73 73 61 67 65 | 5f 54 61 73 6b 49 6e 69 | Message|_TaskIni|
|00000b10| 74 69 61 6c 69 73 65 3d | 20 26 34 30 30 43 32 0d |tialise=| &400C2.|
|00000b20| 03 ca 24 20 20 4d 65 73 | 73 61 67 65 5f 54 61 73 |..$  Mes|sage_Tas|
|00000b30| 6b 43 6c 6f 73 65 44 6f | 77 6e 20 3d 20 26 34 30 |kCloseDo|wn = &40|
|00000b40| 30 43 33 0d 03 d4 24 20 | 20 4d 65 73 73 61 67 65 |0C3...$ | Message|
|00000b50| 5f 53 6c 6f 74 53 69 7a | 65 20 20 20 20 20 20 3d |_SlotSiz|e      =|
|00000b60| 20 26 34 30 30 43 34 0d | 03 de 24 20 20 4d 65 73 | &400C4.|..$  Mes|
|00000b70| 73 61 67 65 5f 53 65 74 | 53 6c 6f 74 20 20 20 20 |sage_Set|Slot    |
|00000b80| 20 20 20 3d 20 26 34 30 | 30 43 35 0d 03 e8 24 20 |   = &40|0C5...$ |
|00000b90| 20 4d 65 73 73 61 67 65 | 5f 54 61 73 6b 4e 61 6d | Message|_TaskNam|
|00000ba0| 65 52 71 20 20 20 20 3d | 20 26 34 30 30 43 36 0d |eRq    =| &400C6.|
|00000bb0| 03 f2 24 20 20 4d 65 73 | 73 61 67 65 5f 54 61 73 |..$  Mes|sage_Tas|
|00000bc0| 6b 4e 61 6d 65 49 73 20 | 20 20 20 3d 20 26 34 30 |kNameIs |   = &40|
|00000bd0| 30 43 37 0d 03 fc 24 20 | 20 4d 65 73 73 61 67 65 |0C7...$ | Message|
|00000be0| 5f 54 61 73 6b 53 74 61 | 72 74 65 64 20 20 20 3d |_TaskSta|rted   =|
|00000bf0| 20 26 34 30 30 43 38 0d | 04 06 04 0d 04 10 10 f4 | &400C8.|........|
|00000c00| 20 42 75 66 66 65 72 73 | 2e 2e 2e 0d 04 1a 15 20 | Buffers|....... |
|00000c10| 20 de 20 62 6c 6f 63 6b | 20 20 20 20 20 32 35 36 | . block|     256|
|00000c20| 0d 04 24 17 20 20 de 20 | 6d 65 74 68 6f 64 74 61 |..$.  . |methodta|
|00000c30| 62 6c 65 20 32 35 36 0d | 04 2e 1f 20 20 de 20 74 |ble 256.|...  . t|
|00000c40| 65 6d 70 62 6c 6f 63 6b | 20 74 65 6d 70 62 6c 6f |empblock| tempblo|
|00000c50| 63 6b 73 69 7a 65 0d 04 | 38 19 20 20 de 20 74 72 |cksize..|8.  . tr|
|00000c60| 61 6e 73 6d 69 74 62 6c | 6f 63 6b 20 32 35 36 0d |ansmitbl|ock 256.|
|00000c70| 04 42 1b 20 20 de 20 65 | 64 69 74 73 20 20 20 20 |.B.  . e|dits    |
|00000c80| 20 65 64 69 74 73 73 69 | 7a 65 0d 04 4c 1a 20 20 | editssi|ze..L.  |
|00000c90| de 20 66 69 65 6c 64 24 | 28 6d 61 78 66 69 65 6c |. field$|(maxfiel|
|00000ca0| 64 2d 31 29 0d 04 56 04 | 0d 04 60 15 f4 20 49 63 |d-1)..V.|..`.. Ic|
|00000cb0| 6f 6e 20 68 61 6e 64 6c | 65 73 2e 2e 2e 0d 04 6a |on handl|es.....j|
|00000cc0| 0b 20 20 52 53 25 3d 30 | 0d 04 74 1c 20 20 49 5f |.  RS%=0|..t.  I_|
|00000cd0| 69 6d 70 64 6f 63 20 20 | 20 20 20 20 3d a4 52 53 |impdoc  |    =.RS|
|00000ce0| 42 28 31 29 0d 04 7e 1c | 20 20 49 5f 64 61 74 61 |B(1)..~.|  I_data|
|00000cf0| 62 61 73 65 20 20 20 20 | 3d a4 52 53 42 28 31 29 |base    |=.RSB(1)|
|00000d00| 0d 04 88 1c 20 20 49 5f | 67 72 61 70 68 69 63 20 |....  I_|graphic |
|00000d10| 20 20 20 20 3d a4 52 53 | 42 28 31 29 0d 04 92 1c |    =.RS|B(1)....|
|00000d20| 20 20 49 5f 65 6e 76 65 | 6c 6f 70 65 20 20 20 20 |  I_enve|lope    |
|00000d30| 3d a4 52 53 42 28 31 29 | 0d 04 9c 1c 20 20 49 5f |=.RSB(1)|....  I_|
|00000d40| 6e 75 6d 6c 65 66 74 20 | 20 20 20 20 3d a4 52 53 |numleft |    =.RS|
|00000d50| 42 28 31 29 0d 04 a6 1c | 20 20 49 5f 6e 75 6d 64 |B(1)....|  I_numd|
|00000d60| 6f 6e 65 20 20 20 20 20 | 3d a4 52 53 42 28 31 29 |one     |=.RSB(1)|
|00000d70| 0d 04 b0 1c 20 20 49 5f | 65 64 69 74 20 20 20 20 |....  I_|edit    |
|00000d80| 20 20 20 20 3d a4 52 53 | 42 28 31 29 0d 04 ba 1c |    =.RS|B(1)....|
|00000d90| 20 20 49 5f 70 72 69 6e | 74 61 6c 6c 20 20 20 20 |  I_prin|tall    |
|00000da0| 3d a4 52 53 42 28 31 29 | 0d 04 c4 1c 20 20 49 5f |=.RSB(1)|....  I_|
|00000db0| 6e 65 78 74 20 20 20 20 | 20 20 20 20 3d a4 52 53 |next    |    =.RS|
|00000dc0| 42 28 31 29 0d 04 ce 1c | 20 20 49 5f 70 72 69 6e |B(1)....|  I_prin|
|00000dd0| 74 20 20 20 20 20 20 20 | 3d a4 52 53 42 28 31 29 |t       |=.RSB(1)|
|00000de0| 0d 04 d8 1c 20 20 49 5f | 75 6e 75 73 65 64 20 20 |....  I_|unused  |
|00000df0| 20 20 20 20 3d a4 52 53 | 42 28 31 29 0d 04 e2 1c |    =.RS|B(1)....|
|00000e00| 20 20 49 5f 64 69 76 69 | 64 65 72 20 20 20 20 20 |  I_divi|der     |
|00000e10| 3d a4 52 53 42 28 31 29 | 0d 04 ec 04 0d 04 f6 2f |=.RSB(1)|......./|
|00000e20| f4 20 49 6d 70 75 6c 73 | 65 20 6d 65 74 68 6f 64 |. Impuls|e method|
|00000e30| 20 74 6f 6b 65 6e 73 20 | 61 6e 64 20 72 65 70 6c | tokens |and repl|
|00000e40| 79 20 74 6f 6b 65 6e 73 | 2e 2e 2e 0d 05 00 0b 20 |y tokens|....... |
|00000e50| 20 52 53 25 3d 30 0d 05 | 0a 1c 20 20 54 5f 47 65 | RS%=0..|..  T_Ge|
|00000e60| 74 46 69 65 6c 64 20 20 | 20 20 3d a4 52 53 42 28 |tField  |  =.RSB(|
|00000e70| 31 29 0d 05 14 1c 20 20 | 54 5f 47 65 74 44 61 74 |1)....  |T_GetDat|
|00000e80| 61 20 20 20 20 20 3d a4 | 52 53 42 28 31 29 0d 05 |a     =.|RSB(1)..|
|00000e90| 1e 1c 20 20 54 5f 47 65 | 74 54 69 6d 65 44 61 74 |..  T_Ge|tTimeDat|
|00000ea0| 65 20 3d a4 52 53 42 28 | 31 29 0d 05 28 1c 20 20 |e =.RSB(|1)..(.  |
|00000eb0| 54 5f 50 72 69 6e 74 20 | 20 20 20 20 20 20 3d a4 |T_Print |      =.|
|00000ec0| 52 53 42 28 31 29 0d 05 | 32 1c 20 20 54 5f 4d 65 |RSB(1)..|2.  T_Me|
|00000ed0| 72 67 65 20 20 20 20 20 | 20 20 3d a4 52 53 42 28 |rge     |  =.RSB(|
|00000ee0| 31 29 0d 05 3c 04 0d 05 | 46 12 f4 20 56 61 72 69 |1)..<...|F.. Vari|
|00000ef0| 61 62 6c 65 73 2e 2e 2e | 0d 05 50 16 20 20 71 75 |ables...|..P.  qu|
|00000f00| 69 74 20 20 20 20 20 20 | 20 20 20 20 3d a3 0d 05 |it      |    =...|
|00000f10| 5a 16 20 20 74 72 61 6e | 73 6d 69 74 63 6f 75 6e |Z.  tran|smitcoun|
|00000f20| 74 20 3d 30 0d 05 64 16 | 20 20 66 69 6c 65 62 61 |t =0..d.|  fileba|
|00000f30| 73 65 20 20 20 20 20 20 | 3d 30 0d 05 6e 17 20 20 |se      |=0..n.  |
|00000f40| 74 61 73 6b 68 61 6e 64 | 6c 65 20 20 20 20 3d 2d |taskhand|le    =-|
|00000f50| 31 0d 05 78 16 20 20 6d | 65 72 67 65 20 20 20 20 |1..x.  m|erge    |
|00000f60| 20 20 20 20 20 3d a3 0d | 05 82 17 20 20 64 65 73 |     =..|...  des|
|00000f70| 74 6e 61 6d 65 24 20 20 | 20 20 20 3d 22 22 0d 05 |tname$  |   =""..|
|00000f80| 8c 17 20 20 73 6f 75 72 | 63 65 6e 61 6d 65 24 20 |..  sour|cename$ |
|00000f90| 20 20 3d 22 22 0d 05 96 | 16 20 20 64 61 74 61 6f |  =""...|.  datao|
|00000fa0| 70 65 6e 72 65 66 20 20 | 20 3d 30 0d 05 a0 16 20 |penref  | =0.... |
|00000fb0| 20 70 72 69 6e 74 69 6e | 67 20 20 20 20 20 20 3d | printin|g      =|
|00000fc0| a3 0d 05 aa 16 20 20 70 | 65 6e 64 69 6e 67 63 6c |.....  p|endingcl|
|00000fd0| 6f 73 65 20 20 3d a3 0d | 05 b4 16 20 20 70 65 6e |ose  =..|...  pen|
|00000fe0| 64 69 6e 67 73 65 74 64 | 65 73 74 3d a3 0d 05 be |dingsetd|est=....|
|00000ff0| 17 20 20 70 65 6e 64 69 | 6e 67 64 65 73 74 24 20 |.  pendi|ngdest$ |
|00001000| 20 3d 22 22 0d 05 c8 21 | 20 20 70 6f 6c 6c 6d 61 | =""...!|  pollma|
|00001010| 73 6b 20 20 20 20 20 20 | 3d 70 72 65 76 65 6e 74 |sk      |=prevent|
|00001020| 6e 75 6c 6c 73 0d 05 d2 | 04 0d 05 dc 2a f4 20 44 |nulls...|....*. D|
|00001030| 69 61 6c 6f 67 75 65 20 | 66 69 65 6c 64 73 20 28 |ialogue |fields (|
|00001040| 69 6e 20 65 64 69 74 73 | 20 62 75 66 66 65 72 29 |in edits| buffer)|
|00001050| 2e 2e 2e 0d 05 e6 0b 20 | 20 52 53 25 3d 30 0d 05 |....... | RS%=0..|
|00001060| f0 1d 20 20 46 5f 64 6f | 63 6e 61 6d 65 20 20 20 |..  F_do|cname   |
|00001070| 20 20 3d a4 52 53 42 28 | 31 32 29 0d 05 fa 1d 20 |  =.RSB(|12).... |
|00001080| 20 46 5f 64 6f 63 73 70 | 72 69 74 65 20 20 20 3d | F_docsp|rite   =|
|00001090| a4 52 53 42 28 31 32 29 | 0d 06 04 1d 20 20 46 5f |.RSB(12)|....  F_|
|000010a0| 64 61 74 61 6e 61 6d 65 | 20 20 20 20 3d a4 52 53 |dataname|    =.RS|
|000010b0| 42 28 31 32 29 0d 06 0e | 1d 20 20 46 5f 64 61 74 |B(12)...|.  F_dat|
|000010c0| 61 73 70 72 69 74 65 20 | 20 3d a4 52 53 42 28 31 |asprite | =.RSB(1|
|000010d0| 32 29 0d 06 18 1d 20 20 | 46 5f 6e 75 6d 64 6f 6e |2)....  |F_numdon|
|000010e0| 65 20 20 20 20 20 3d a4 | 52 53 42 28 31 32 29 0d |e     =.|RSB(12).|
|000010f0| 06 22 1d 20 20 46 5f 6e | 75 6d 6c 65 66 74 20 20 |.".  F_n|umleft  |
|00001100| 20 20 20 3d a4 52 53 42 | 28 31 32 29 0d 06 2c 1d |   =.RSB|(12)..,.|
|00001110| 20 20 46 5f 73 74 6f 70 | 73 77 69 74 63 68 20 20 |  F_stop|switch  |
|00001120| 3d a4 52 53 42 28 31 38 | 29 0d 06 36 1c 20 20 46 |=.RSB(18|)..6.  F|
|00001130| 5f 73 74 6f 70 76 61 6c | 69 64 20 20 20 3d a4 52 |_stopval|id   =.R|
|00001140| 53 42 28 30 29 0d 06 40 | 04 0d 06 4a 1a f4 20 4d |SB(0)..@|...J.. M|
|00001150| 65 6d 6f 72 79 20 6d 61 | 6e 61 67 65 6d 65 6e 74 |emory ma|nagement|
|00001160| 2e 2e 2e 0d 06 54 18 20 | 20 53 74 61 72 74 5f 4f |.....T. | Start_O|
|00001170| 66 5f 4d 65 6d 6f 72 79 | 25 3d 93 0d 06 5e 16 20 |f_Memory|%=...^. |
|00001180| 20 45 6e 64 5f 4f 66 5f | 4d 65 6d 6f 72 79 25 3d | End_Of_|Memory%=|
|00001190| 93 0d 06 68 16 20 20 45 | 6e 64 5f 4f 66 5f 55 73 |...h.  E|nd_Of_Us|
|000011a0| 65 64 25 20 20 3d 93 0d | 06 72 2b 20 20 c8 99 20 |ed%  =..|.r+  .. |
|000011b0| 22 57 69 6d 70 5f 53 6c | 6f 74 53 69 7a 65 22 2c |"Wimp_Sl|otSize",|
|000011c0| 2d 31 2c 2d 31 20 b8 20 | 53 6c 6f 74 5f 53 69 7a |-1,-1 . |Slot_Siz|
|000011d0| 65 25 0d 06 7c 04 0d 06 | 86 1a f4 20 53 74 61 74 |e%..|...|... Stat|
|000011e0| 69 63 20 73 74 72 75 63 | 74 75 72 65 73 2e 2e 2e |ic struc|tures...|
|000011f0| 0d 06 90 14 20 20 50 25 | 3d 6d 65 74 68 6f 64 74 |....  P%|=methodt|
|00001200| 61 62 6c 65 0d 06 9a 0f | 20 20 5b 4f 50 54 20 50 |able....|  [OPT P|
|00001210| 41 53 53 0d 06 a4 45 20 | 20 20 20 20 20 20 20 65 |ASS...E |       e|
|00001220| 71 75 64 20 20 20 20 30 | 20 20 20 20 20 20 20 20 |qud    0|        |
|00001230| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |        |       ;|
|00001240| 20 4d 65 74 68 6f 64 20 | 73 74 72 75 63 74 75 72 | Method |structur|
|00001250| 65 20 66 6f 72 6d 61 74 | 0d 06 ae 33 20 20 20 20 |e format|...3    |
|00001260| 20 20 20 20 a4 4d 65 74 | 68 6f 64 28 30 2c 54 5f |    .Met|hod(0,T_|
|00001270| 47 65 74 46 69 65 6c 64 | 2c 22 47 65 74 46 69 65 |GetField|,"GetFie|
|00001280| 6c 64 22 2c 22 2f 41 2f | 45 22 29 0d 06 b8 2d 20 |ld","/A/|E")...- |
|00001290| 20 20 20 20 20 20 20 a4 | 4d 65 74 68 6f 64 28 30 |       .|Method(0|
|000012a0| 2c 54 5f 47 65 74 44 61 | 74 61 2c 22 47 65 74 44 |,T_GetDa|ta,"GetD|
|000012b0| 61 74 61 22 2c 22 22 29 | 0d 06 c2 35 20 20 20 20 |ata","")|...5    |
|000012c0| 20 20 20 20 a4 4d 65 74 | 68 6f 64 28 30 2c 54 5f |    .Met|hod(0,T_|
|000012d0| 47 65 74 54 69 6d 65 44 | 61 74 65 2c 22 47 65 74 |GetTimeD|ate,"Get|
|000012e0| 54 69 6d 65 44 61 74 65 | 22 2c 22 22 29 0d 06 cc |TimeDate|","")...|
|000012f0| 11 20 20 20 20 20 20 20 | 20 61 6c 69 67 6e 0d 06 |.       | align..|
|00001300| d6 04 0d 06 e0 07 20 20 | 5d 0d 06 ea 04 0d 06 f4 |......  |].......|
|00001310| 05 e1 0d 06 fe 04 0d 07 | 08 04 0d 07 12 10 dd 20 |........|....... |
|00001320| f2 69 6e 69 74 77 69 6d | 70 73 0d 07 1c 36 20 20 |.initwim|ps...6  |
|00001330| f4 20 52 65 67 69 73 74 | 65 72 20 61 73 20 61 20 |. Regist|er as a |
|00001340| 57 69 6d 70 20 74 61 73 | 6b 20 61 6e 64 20 61 6e |Wimp tas|k and an|
|00001350| 20 49 6d 70 75 6c 73 65 | 20 74 61 73 6b 2e 2e 2e | Impulse| task...|
|00001360| 0d 07 26 13 20 20 24 62 | 6c 6f 63 6b 3d 22 54 41 |..&.  $b|lock="TA|
|00001370| 53 4b 22 0d 07 30 3c 20 | 20 c8 99 20 22 57 69 6d |SK"..0< | .. "Wim|
|00001380| 70 5f 49 6e 69 74 69 61 | 6c 69 73 65 22 2c 32 30 |p_Initia|lise",20|
|00001390| 30 2c 21 62 6c 6f 63 6b | 2c 61 70 70 6e 61 6d 65 |0,!block|,appname|
|000013a0| 24 20 b8 20 2c 74 61 73 | 6b 68 61 6e 64 6c 65 0d |$ . ,tas|khandle.|
|000013b0| 07 3a 38 20 20 c8 99 20 | 22 49 6d 70 75 6c 73 65 |.:8  .. |"Impulse|
|000013c0| 5f 49 6e 69 74 69 61 6c | 69 73 65 22 2c 30 30 33 |_Initial|ise",003|
|000013d0| 2c 74 61 73 6b 68 61 6e | 64 6c 65 2c 61 70 70 6e |,taskhan|dle,appn|
|000013e0| 61 6d 65 24 2c 2d 31 0d | 07 44 04 0d 07 4e 27 20 |ame$,-1.|.D...N' |
|000013f0| 20 f4 20 47 65 74 20 74 | 68 65 20 77 69 6e 64 6f | . Get t|he windo|
|00001400| 77 20 64 65 66 69 6e 69 | 74 69 6f 6e 20 69 6e 2e |w defini|tion in.|
|00001410| 2e 2e 0d 07 58 38 20 20 | c8 99 20 22 57 69 6d 70 |....X8  |.. "Wimp|
|00001420| 5f 4f 70 65 6e 54 65 6d | 70 6c 61 74 65 22 2c 2c |_OpenTem|plate",,|
|00001430| 22 3c 49 6d 70 6f 72 74 | 65 72 24 44 69 72 3e 2e |"<Import|er$Dir>.|
|00001440| 54 65 6d 70 6c 61 74 65 | 73 22 0d 07 62 1a 20 20 |Template|s"..b.  |
|00001450| f2 64 6f 6c 6c 61 72 69 | 6e 28 62 6c 6f 63 6b 2c |.dollari|n(block,|
|00001460| 22 2a 22 29 0d 07 6c 48 | 20 20 c8 99 20 22 57 69 |"*")..lH|  .. "Wi|
|00001470| 6d 70 5f 4c 6f 61 64 54 | 65 6d 70 6c 61 74 65 22 |mp_LoadT|emplate"|
|00001480| 2c 2c 74 65 6d 70 62 6c | 6f 63 6b 2c 65 64 69 74 |,,tempbl|ock,edit|
|00001490| 73 2c 65 64 69 74 73 2b | 65 64 69 74 73 73 69 7a |s,edits+|editssiz|
|000014a0| 65 2c 2d 31 2c 62 6c 6f | 63 6b 2c 30 0d 07 76 36 |e,-1,blo|ck,0..v6|
|000014b0| 20 20 c8 99 20 22 57 69 | 6d 70 5f 43 72 65 61 74 |  .. "Wi|mp_Creat|
|000014c0| 65 57 69 6e 64 6f 77 22 | 2c 2c 74 65 6d 70 62 6c |eWindow"|,,tempbl|
|000014d0| 6f 63 6b 20 b8 20 69 6d | 70 6f 72 74 77 69 6e 64 |ock . im|portwind|
|000014e0| 6f 77 0d 07 80 1d 20 20 | c8 99 20 22 57 69 6d 70 |ow....  |.. "Wimp|
|000014f0| 5f 43 6c 6f 73 65 54 65 | 6d 70 6c 61 74 65 22 0d |_CloseTe|mplate".|
|00001500| 07 8a 04 0d 07 94 1f 20 | 20 f4 20 53 65 74 20 74 |....... | . Set t|
|00001510| 68 65 20 77 69 6e 64 6f | 77 20 73 74 61 74 65 2e |he windo|w state.|
|00001520| 2e 2e 0d 07 9e 0f 20 20 | f2 6d 65 72 67 65 6f 66 |......  |.mergeof|
|00001530| 66 0d 07 a8 04 0d 07 b2 | 1e 20 20 f4 20 4e 6f 77 |f.......|.  . Now|
|00001540| 20 6f 70 65 6e 20 74 68 | 65 20 77 69 6e 64 6f 77 | open th|e window|
|00001550| 2e 2e 2e 0d 07 bc 1a 20 | 20 62 6c 6f 63 6b 21 30 |....... | block!0|
|00001560| 3d 69 6d 70 6f 72 74 77 | 69 6e 64 6f 77 0d 07 c6 |=importw|indow...|
|00001570| 25 20 20 c8 99 20 22 57 | 69 6d 70 5f 47 65 74 57 |%  .. "W|imp_GetW|
|00001580| 69 6e 64 6f 77 53 74 61 | 74 65 22 2c 2c 62 6c 6f |indowSta|te",,blo|
|00001590| 63 6b 0d 07 d0 1f 20 20 | f2 6f 70 65 6e 77 69 6e |ck....  |.openwin|
|000015a0| 64 6f 77 28 69 6d 70 6f | 72 74 77 69 6e 64 6f 77 |dow(impo|rtwindow|
|000015b0| 29 0d 07 da 05 e1 0d 07 | e4 04 0d 07 ee 04 0d 07 |).......|........|
|000015c0| f8 10 dd 20 f2 65 78 69 | 74 77 69 6d 70 73 0d 08 |... .exi|twimps..|
|000015d0| 02 18 20 20 e7 20 74 61 | 73 6b 68 61 6e 64 6c 65 |..  . ta|skhandle|
|000015e0| 3c 3e 2d 31 20 8c 0d 08 | 0c 1c 20 20 20 20 f2 73 |<>-1 ...|..    .s|
|000015f0| 65 6e 64 28 22 45 64 69 | 74 20 4f 66 66 22 2c 2d |end("Edi|t Off",-|
|00001600| 31 29 0d 08 16 29 20 20 | 20 20 c8 99 20 22 49 6d |1)...)  |  .. "Im|
|00001610| 70 75 6c 73 65 5f 43 6c | 6f 73 65 44 6f 77 6e 22 |pulse_Cl|oseDown"|
|00001620| 2c 74 61 73 6b 68 61 6e | 64 6c 65 0d 08 20 15 20 |,taskhan|dle.. . |
|00001630| 20 20 20 24 62 6c 6f 63 | 6b 3d 22 54 41 53 4b 22 |   $bloc|k="TASK"|
|00001640| 0d 08 2a 2d 20 20 20 20 | c8 99 20 22 57 69 6d 70 |..*-    |.. "Wimp|
|00001650| 5f 43 6c 6f 73 65 44 6f | 77 6e 22 2c 74 61 73 6b |_CloseDo|wn",task|
|00001660| 68 61 6e 64 6c 65 2c 21 | 62 6c 6f 63 6b 0d 08 34 |handle,!|block..4|
|00001670| 07 20 20 cd 0d 08 3e 05 | e1 0d 08 48 04 0d 08 52 |.  ...>.|...H...R|
|00001680| 04 0d 08 5c 4f f4 20 50 | 52 4f 43 65 72 72 6f 72 |...\O. P|ROCerror|
|00001690| 20 72 65 6c 69 65 73 20 | 6f 6e 20 62 65 69 6e 67 | relies |on being|
|000016a0| 20 63 61 6c 6c 65 64 20 | 69 6e 20 61 6e 20 4f 4e | called |in an ON|
|000016b0| 20 45 52 52 4f 52 20 73 | 74 61 74 65 6d 65 6e 74 | ERROR s|tatement|
|000016c0| 20 6a 75 73 74 20 62 65 | 66 6f 72 65 20 74 68 65 | just be|fore the|
|000016d0| 0d 08 66 4b f4 20 6d 61 | 69 6e 20 70 6f 6c 6c 20 |..fK. ma|in poll |
|000016e0| 6c 6f 6f 70 20 73 6f 20 | 74 68 61 74 20 69 74 20 |loop so |that it |
|000016f0| 63 61 6e 20 64 72 6f 70 | 20 62 61 63 6b 20 69 6e |can drop| back in|
|00001700| 74 6f 20 74 68 65 20 70 | 72 6f 67 72 61 6d 20 69 |to the p|rogram i|
|00001710| 66 20 6e 65 65 64 65 64 | 2e 2e 2e 0d 08 70 04 0d |f needed|.....p..|
|00001720| 08 7a 0c dd 20 f2 65 72 | 72 6f 72 0d 08 84 0a 20 |.z.. .er|ror.... |
|00001730| 20 ea 20 72 25 0d 08 8e | 0e 20 20 21 62 6c 6f 63 | . r%...|.  !bloc|
|00001740| 6b 3d 30 0d 08 98 55 20 | 20 f2 64 6f 6c 6c 61 72 |k=0...U | .dollar|
|00001750| 69 6e 28 62 6c 6f 63 6b | 2b 34 2c f6 24 2b 22 20 |in(block|+4,.$+" |
|00001760| 28 43 6f 64 65 20 22 2b | c3 9e 2b 22 29 2e 20 4f |(Code "+|..+"). O|
|00001770| 4b 20 74 6f 20 63 6f 6e | 74 69 6e 75 65 2c 20 43 |K to con|tinue, C|
|00001780| 61 6e 63 65 6c 20 74 6f | 20 71 75 69 74 20 70 72 |ancel to| quit pr|
|00001790| 6f 67 72 61 6d 2e 22 29 | 0d 08 a2 3a 20 20 c8 99 |ogram.")|...:  ..|
|000017a0| 20 22 57 69 6d 70 5f 52 | 65 70 6f 72 74 45 72 72 | "Wimp_R|eportErr|
|000017b0| 6f 72 22 2c 62 6c 6f 63 | 6b 2c 25 30 30 30 30 30 |or",bloc|k,%00000|
|000017c0| 30 31 31 2c 61 70 70 6e | 61 6d 65 24 20 b8 20 2c |011,appn|ame$ . ,|
|000017d0| 72 25 0d 08 ac 0e 20 20 | e7 20 72 25 3d 32 20 8c |r%....  |. r%=2 .|
|000017e0| 0d 08 b6 12 20 20 20 20 | f2 65 78 69 74 77 69 6d |....    |.exitwim|
|000017f0| 70 73 0d 08 c0 09 20 20 | 20 20 e0 0d 08 ca 07 20 |ps....  |  ..... |
|00001800| 20 cd 0d 08 d4 05 e1 0d | 08 de 04 0d 08 e8 04 0d | .......|........|
|00001810| 08 f2 51 f4 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..Q.----|--------|
|00001820| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001830| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001840| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001850| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 3b |--------|-------;|
|00001860| 0d 08 fc 1d f4 20 20 57 | 69 6d 70 20 65 76 65 6e |.....  W|imp even|
|00001870| 74 20 68 61 6e 64 6c 65 | 72 73 2e 2e 2e 0d 09 06 |t handle|rs......|
|00001880| 04 0d 09 10 19 dd 20 f2 | 6f 70 65 6e 77 69 6e 64 |...... .|openwind|
|00001890| 6f 77 28 77 69 6e 64 6f | 77 29 0d 09 1a 1d 20 20 |ow(windo|w)....  |
|000018a0| e7 20 77 69 6e 64 6f 77 | 3d 69 6d 70 6f 72 74 77 |. window|=importw|
|000018b0| 69 6e 64 6f 77 20 8c 0d | 09 24 23 20 20 20 20 c8 |indow ..|.$#    .|
|000018c0| 99 20 22 57 69 6d 70 5f | 4f 70 65 6e 57 69 6e 64 |. "Wimp_|OpenWind|
|000018d0| 6f 77 22 2c 2c 62 6c 6f | 63 6b 0d 09 2e 07 20 20 |ow",,blo|ck....  |
|000018e0| cd 0d 09 38 05 e1 0d 09 | 42 04 0d 09 4c 04 0d 09 |...8....|B...L...|
|000018f0| 56 1a dd 20 f2 63 6c 6f | 73 65 77 69 6e 64 6f 77 |V.. .clo|sewindow|
|00001900| 28 77 69 6e 64 6f 77 29 | 0d 09 60 1d 20 20 e7 20 |(window)|..`.  . |
|00001910| 77 69 6e 64 6f 77 3d 69 | 6d 70 6f 72 74 77 69 6e |window=i|mportwin|
|00001920| 64 6f 77 20 8c 0d 09 6a | 14 20 20 20 20 e7 20 70 |dow ...j|.    . p|
|00001930| 72 69 6e 74 69 6e 67 20 | 8c 0d 09 74 18 20 20 20 |rinting |...t.   |
|00001940| 20 20 20 70 65 6e 64 69 | 6e 67 63 6c 6f 73 65 3d |   pendi|ngclose=|
|00001950| b9 0d 09 7e 09 20 20 20 | 20 cc 0d 09 88 1d 20 20 |...~.   | .....  |
|00001960| 20 20 20 20 e7 20 6d 65 | 72 67 65 20 8c 20 f2 6d |    . me|rge . .m|
|00001970| 65 72 67 65 6f 66 66 0d | 09 92 18 20 20 20 20 20 |ergeoff.|...     |
|00001980| 20 62 6c 6f 63 6b 21 30 | 3d 77 69 6e 64 6f 77 0d | block!0|=window.|
|00001990| 09 9c 26 20 20 20 20 20 | 20 c8 99 20 22 57 69 6d |..&     | .. "Wim|
|000019a0| 70 5f 43 6c 6f 73 65 57 | 69 6e 64 6f 77 22 2c 2c |p_CloseW|indow",,|
|000019b0| 62 6c 6f 63 6b 0d 09 a6 | 27 20 20 20 20 20 20 c8 |block...|'      .|
|000019c0| 99 20 22 57 69 6d 70 5f | 44 65 6c 65 74 65 57 69 |. "Wimp_|DeleteWi|
|000019d0| 6e 64 6f 77 22 2c 2c 62 | 6c 6f 63 6b 0d 09 b0 10 |ndow",,b|lock....|
|000019e0| 20 20 20 20 20 20 71 75 | 69 74 3d b9 0d 09 ba 09 |      qu|it=.....|
|000019f0| 20 20 20 20 cd 0d 09 c4 | 07 20 20 cd 0d 09 ce 05 |    ....|.  .....|
|00001a00| e1 0d 09 d8 04 0d 09 e2 | 04 0d 09 ec 25 dd 20 f2 |........|....%. .|
|00001a10| 63 6c 69 63 6b 28 78 2c | 79 2c 62 75 74 74 6f 6e |click(x,|y,button|
|00001a20| 73 2c 77 69 6e 64 6f 77 | 2c 69 63 6f 6e 29 0d 09 |s,window|,icon)..|
|00001a30| f6 20 20 20 e7 20 77 69 | 6e 64 6f 77 3c 3e 69 6d |.   . wi|ndow<>im|
|00001a40| 70 6f 72 74 77 69 6e 64 | 6f 77 20 8c 20 e1 0d 0a |portwind|ow . ...|
|00001a50| 00 0f 20 20 c8 8e 20 69 | 63 6f 6e 20 ca 0d 0a 0a |..  .. i|con ....|
|00001a60| 26 20 20 20 20 c9 20 49 | 5f 6e 65 78 74 20 20 20 |&    . I|_next   |
|00001a70| 20 3a 20 f2 6d 65 72 67 | 65 6e 65 78 74 72 65 63 | : .merg|enextrec|
|00001a80| 6f 72 64 0d 0a 14 37 20 | 20 20 20 c9 20 49 5f 70 |ord...7 |   . I_p|
|00001a90| 72 69 6e 74 20 20 20 3a | 20 f2 73 65 6e 64 28 22 |rint   :| .send("|
|00001aa0| 50 72 69 6e 74 22 2c 54 | 5f 50 72 69 6e 74 29 3a |Print",T|_Print):|
|00001ab0| 70 72 69 6e 74 69 6e 67 | 3d b9 0d 0a 1e 53 20 20 |printing|=....S  |
|00001ac0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001ad0| 20 20 20 f2 73 65 74 73 | 74 61 74 65 73 28 69 6d |   .sets|tates(im|
|00001ae0| 70 6f 72 74 77 69 6e 64 | 6f 77 2c 22 49 5f 65 64 |portwind|ow,"I_ed|
|00001af0| 69 74 2c 49 5f 70 72 69 | 6e 74 2c 49 5f 6e 65 78 |it,I_pri|nt,I_nex|
|00001b00| 74 22 2c 67 72 65 79 2c | 67 72 65 79 29 0d 0a 28 |t",grey,|grey)..(|
|00001b10| 2c 20 20 20 20 c9 20 49 | 5f 65 64 69 74 20 20 20 |,    . I|_edit   |
|00001b20| 20 3a 20 f2 73 65 6e 64 | 28 22 43 6c 65 61 72 4d | : .send|("ClearM|
|00001b30| 65 72 67 65 22 2c 2d 31 | 29 0d 0a 32 33 20 20 20 |erge",-1|)..23   |
|00001b40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001b50| 20 20 f2 63 6c 6f 73 65 | 77 69 6e 64 6f 77 28 69 |  .close|window(i|
|00001b60| 6d 70 6f 72 74 77 69 6e | 64 6f 77 29 0d 0a 3c 55 |mportwin|dow)..<U|
|00001b70| 20 20 20 20 c9 20 49 5f | 70 72 69 6e 74 61 6c 6c |    . I_|printall|
|00001b80| 3a 20 e7 20 a4 73 65 6c | 65 63 74 65 64 28 69 6d |: . .sel|ected(im|
|00001b90| 70 6f 72 74 77 69 6e 64 | 6f 77 2c 49 5f 70 72 69 |portwind|ow,I_pri|
|00001ba0| 6e 74 61 6c 6c 29 20 80 | 20 6d 65 72 67 65 20 8c |ntall) .| merge .|
|00001bb0| 20 f2 6d 65 72 67 65 6e | 65 78 74 72 65 63 6f 72 | .mergen|extrecor|
|00001bc0| 64 0d 0a 46 45 f4 20 57 | 48 45 4e 20 49 5f 64 69 |d..FE. W|HEN I_di|
|00001bd0| 76 69 64 65 72 20 3a 20 | 53 59 53 20 22 49 6d 70 |vider : |SYS "Imp|
|00001be0| 75 6c 73 65 5f 54 65 73 | 74 22 3a 50 52 4f 43 72 |ulse_Tes|t":PROCr|
|00001bf0| 65 70 6f 72 74 28 53 54 | 52 24 7e 74 61 73 6b 68 |eport(ST|R$~taskh|
|00001c00| 61 6e 64 6c 65 29 0d 0a | 50 07 20 20 cb 0d 0a 5a |andle)..|P.  ...Z|
|00001c10| 05 e1 0d 0a 64 04 0d 0a | 6e 04 0d 0a 78 16 dd 20 |....d...|n...x.. |
|00001c20| f2 6d 65 73 73 61 67 65 | 28 61 63 74 69 6f 6e 29 |.message|(action)|
|00001c30| 0d 0a 82 11 20 20 c8 8e | 20 61 63 74 69 6f 6e 20 |....  ..| action |
|00001c40| ca 0d 0a 8c 26 20 20 20 | 20 c9 20 4d 65 73 73 61 |....&   | . Messa|
|00001c50| 67 65 5f 51 75 69 74 20 | 20 20 20 20 20 20 20 3a |ge_Quit |       :|
|00001c60| 20 71 75 69 74 3d b9 0d | 0a 96 29 20 20 20 20 c9 | quit=..|..)    .|
|00001c70| 20 4d 65 73 73 61 67 65 | 5f 44 61 74 61 53 61 76 | Message|_DataSav|
|00001c80| 65 20 20 20 20 3a 20 f2 | 64 61 74 61 73 61 76 65 |e    : .|datasave|
|00001c90| 0d 0a a0 29 20 20 20 20 | c9 20 4d 65 73 73 61 67 |...)    |. Messag|
|00001ca0| 65 5f 44 61 74 61 4c 6f | 61 64 20 20 20 20 3a 20 |e_DataLo|ad    : |
|00001cb0| f2 64 61 74 61 6c 6f 61 | 64 0d 0a aa 28 20 20 20 |.dataloa|d...(   |
|00001cc0| 20 c9 20 4d 65 73 73 61 | 67 65 5f 50 72 65 51 75 | . Messa|ge_PreQu|
|00001cd0| 69 74 20 20 20 20 20 3a | 20 f2 70 72 65 71 75 69 |it     :| .prequi|
|00001ce0| 74 0d 0a b4 2c 20 20 20 | 20 c9 20 4d 65 73 73 61 |t...,   | . Messa|
|00001cf0| 67 65 5f 44 61 74 61 4c | 6f 61 64 41 63 6b 20 3a |ge_DataL|oadAck :|
|00001d00| 20 f2 64 61 74 61 6c 6f | 61 64 61 63 6b 0d 0a be | .datalo|adack...|
|00001d10| 07 20 20 cb 0d 0a c8 05 | e1 0d 0a d2 04 0d 0a dc |.  .....|........|
|00001d20| 04 0d 0a e6 1e dd 20 f2 | 75 6e 64 65 6c 69 76 65 |...... .|undelive|
|00001d30| 72 65 64 28 61 63 74 69 | 6f 6e 2c 72 65 66 29 0d |red(acti|on,ref).|
|00001d40| 0a f0 11 20 20 c8 8e 20 | 61 63 74 69 6f 6e 20 ca |...  .. |action .|
|00001d50| 0d 0a fa 1a 20 20 20 20 | c9 20 4d 65 73 73 61 67 |....    |. Messag|
|00001d60| 65 5f 44 61 74 61 4f 70 | 65 6e 0d 0b 04 1d 20 20 |e_DataOp|en....  |
|00001d70| 20 20 20 20 e7 20 72 65 | 66 3d 64 61 74 61 6f 70 |    . re|f=dataop|
|00001d80| 65 6e 72 65 66 20 8c 0d | 0b 0e 29 20 20 20 20 20 |enref ..|..)     |
|00001d90| 20 20 20 f2 72 75 6e 61 | 70 70 28 a4 64 6f 6c 6c |   .runa|pp(.doll|
|00001da0| 61 72 6f 75 74 28 62 6c | 6f 63 6b 2b 34 34 29 29 |arout(bl|ock+44))|
|00001db0| 0d 0b 18 0d 20 20 20 20 | 20 20 20 20 f4 0d 0b 22 |....    |    ..."|
|00001dc0| 4d 20 20 20 20 20 20 20 | 20 f4 20 53 6f 72 72 79 |M       | . Sorry|
|00001dd0| 20 61 62 6f 75 74 20 74 | 68 69 73 20 62 75 74 20 | about t|his but |
|00001de0| 77 65 20 68 61 76 65 20 | 74 6f 20 77 61 69 74 20 |we have |to wait |
|00001df0| 66 6f 72 20 49 6d 70 72 | 65 73 73 69 6f 6e 20 74 |for Impr|ession t|
|00001e00| 6f 20 67 65 74 20 69 6e | 74 6f 0d 0b 2c 48 20 20 |o get in|to..,H  |
|00001e10| 20 20 20 20 20 20 f4 20 | 69 74 73 20 6d 61 69 6e |      . |its main|
|00001e20| 20 70 6f 6c 6c 20 6c 6f | 6f 70 20 62 65 66 6f 72 | poll lo|op befor|
|00001e30| 65 20 77 65 20 63 61 6e | 20 73 65 6e 64 20 69 74 |e we can| send it|
|00001e40| 20 49 6d 70 75 6c 73 65 | 20 6d 65 73 73 61 67 65 | Impulse| message|
|00001e50| 73 2e 0d 0b 36 4e 20 20 | 20 20 20 20 20 20 f4 20 |s...6N  |      . |
|00001e60| 54 68 65 20 66 6f 6c 6c | 6f 77 69 6e 67 20 66 6c |The foll|owing fl|
|00001e70| 61 67 73 20 61 72 65 20 | 73 65 74 20 75 70 20 74 |ags are |set up t|
|00001e80| 6f 20 63 61 6c 6c 20 50 | 52 4f 43 73 65 74 64 65 |o call P|ROCsetde|
|00001e90| 73 74 69 6e 61 74 69 6f | 6e 20 6f 6e 20 74 68 65 |stinatio|n on the|
|00001ea0| 0d 0b 40 4b 20 20 20 20 | 20 20 20 20 f4 20 66 69 |..@K    |    . fi|
|00001eb0| 72 73 74 20 6e 75 6c 6c | 20 65 76 65 6e 74 20 72 |rst null| event r|
|00001ec0| 65 74 75 72 6e 65 64 20 | 74 6f 20 75 73 20 61 66 |eturned |to us af|
|00001ed0| 74 65 72 20 77 65 20 68 | 61 76 65 20 72 75 6e 20 |ter we h|ave run |
|00001ee0| 49 6d 70 72 65 73 73 69 | 6f 6e 2e 0d 0b 4a 0d 20 |Impressi|on...J. |
|00001ef0| 20 20 20 20 20 20 20 f4 | 0d 0b 54 1c 20 20 20 20 |       .|..T.    |
|00001f00| 20 20 20 20 70 65 6e 64 | 69 6e 67 73 65 74 64 65 |    pend|ingsetde|
|00001f10| 73 74 3d b9 0d 0b 5e 34 | 20 20 20 20 20 20 20 20 |st=...^4|        |
|00001f20| 70 65 6e 64 69 6e 67 64 | 65 73 74 24 3d a4 6c 65 |pendingd|est$=.le|
|00001f30| 61 66 28 a4 64 6f 6c 6c | 61 72 6f 75 74 28 62 6c |af(.doll|arout(bl|
|00001f40| 6f 63 6b 2b 34 34 29 29 | 0d 0b 68 1f 20 20 20 20 |ock+44))|..h.    |
|00001f50| 20 20 20 20 70 6f 6c 6c | 6d 61 73 6b 3d 61 6c 6c |    poll|mask=all|
|00001f60| 6f 77 6e 75 6c 6c 73 0d | 0b 72 0b 20 20 20 20 20 |ownulls.|.r.     |
|00001f70| 20 cd 0d 0b 7c 07 20 20 | cb 0d 0b 86 05 e1 0d 0b | ...|.  |........|
|00001f80| 90 04 0d 0b 9a 04 0d 0b | a4 0f dd 20 f2 64 61 74 |........|... .dat|
|00001f90| 61 6c 6f 61 64 0d 0b ae | 2d 20 20 e7 20 6d 65 72 |aload...|-  . mer|
|00001fa0| 67 65 20 8c 20 85 20 32 | 30 30 2c 22 41 6c 72 65 |ge . . 2|00,"Alre|
|00001fb0| 61 64 79 20 6d 65 72 67 | 69 6e 67 20 64 61 74 61 |ady merg|ing data|
|00001fc0| 21 22 0d 0b b8 18 20 20 | e7 20 62 6c 6f 63 6b 21 |!"....  |. block!|
|00001fd0| 34 30 3d 26 32 30 30 30 | 20 8c 0d 0b c2 2a 20 20 |40=&2000| ....*  |
|00001fe0| 20 20 62 6c 6f 63 6b 21 | 6d 65 73 73 5f 41 63 74 |  block!|mess_Act|
|00001ff0| 69 6f 6e 3d 4d 65 73 73 | 61 67 65 5f 44 61 74 61 |ion=Mess|age_Data|
|00002000| 4f 70 65 6e 0d 0b cc 1e | 20 20 20 20 62 6c 6f 63 |Open....|    bloc|
|00002010| 6b 21 33 36 20 20 20 20 | 20 20 20 20 20 20 20 3d |k!36    |       =|
|00002020| 20 30 0d 0b d6 28 20 20 | 20 20 c8 99 20 22 57 69 | 0...(  |  .. "Wi|
|00002030| 6d 70 5f 53 65 6e 64 4d | 65 73 73 61 67 65 22 2c |mp_SendM|essage",|
|00002040| 31 38 2c 62 6c 6f 63 6b | 2c 30 0d 0b e0 24 20 20 |18,block|,0...$  |
|00002050| 20 20 64 61 74 61 6f 70 | 65 6e 72 65 66 3d 62 6c |  dataop|enref=bl|
|00002060| 6f 63 6b 21 6d 65 73 73 | 5f 4d 79 52 65 66 0d 0b |ock!mess|_MyRef..|
|00002070| ea 07 20 20 cc 0d 0b f4 | 27 20 20 20 20 f2 6c 6f |..  ....|'    .lo|
|00002080| 61 64 66 69 6c 65 28 a4 | 64 6f 6c 6c 61 72 6f 75 |adfile(.|dollarou|
|00002090| 74 28 62 6c 6f 63 6b 2b | 34 34 29 29 0d 0b fe 45 |t(block+|44))...E|
|000020a0| 20 20 20 20 f2 64 61 74 | 61 72 65 70 6c 79 28 4d |    .dat|areply(M|
|000020b0| 65 73 73 61 67 65 5f 44 | 61 74 61 4c 6f 61 64 41 |essage_D|ataLoadA|
|000020c0| 63 6b 2c 62 6c 6f 63 6b | 21 33 36 2c a4 64 6f 6c |ck,block|!36,.dol|
|000020d0| 6c 61 72 6f 75 74 28 62 | 6c 6f 63 6b 2b 34 34 29 |larout(b|lock+44)|
|000020e0| 29 0d 0c 08 13 20 20 20 | 20 f2 74 72 79 6d 65 72 |)....   | .trymer|
|000020f0| 67 65 6f 6e 0d 0c 12 07 | 20 20 cd 0d 0c 1c 05 e1 |geon....|  ......|
|00002100| 0d 0c 26 04 0d 0c 30 04 | 0d 0c 3a 0f dd 20 f2 64 |..&...0.|..:.. .d|
|00002110| 61 74 61 73 61 76 65 0d | 0c 44 13 20 20 c8 8e 20 |atasave.|.D.  .. |
|00002120| 62 6c 6f 63 6b 21 34 30 | 20 ca 0d 0c 4e 0c 20 20 |block!40| ...N.  |
|00002130| c9 20 26 46 46 46 0d 0c | 58 39 20 20 20 20 f2 64 |. &FFF..|X9    .d|
|00002140| 61 74 61 72 65 70 6c 79 | 28 4d 65 73 73 61 67 65 |atareply|(Message|
|00002150| 5f 44 61 74 61 53 61 76 | 65 41 63 6b 2c 2d 31 2c |_DataSav|eAck,-1,|
|00002160| 22 3c 57 69 6d 70 24 53 | 63 72 61 70 3e 22 29 0d |"<Wimp$S|crap>").|
|00002170| 0c 62 0d 20 20 c9 20 26 | 32 30 30 30 0d 0c 6c 2f |.b.  . &|2000..l/|
|00002180| 20 20 20 20 e7 20 6d 65 | 72 67 65 20 8c 20 85 20 |    . me|rge . . |
|00002190| 32 30 30 2c 22 41 6c 72 | 65 61 64 79 20 6d 65 72 |200,"Alr|eady mer|
|000021a0| 67 69 6e 67 20 64 61 74 | 61 21 22 0d 0c 76 34 20 |ging dat|a!"..v4 |
|000021b0| 20 20 20 f2 73 65 74 64 | 65 73 74 69 6e 61 74 69 |   .setd|estinati|
|000021c0| 6f 6e 28 a4 6c 65 61 66 | 28 a4 64 6f 6c 6c 61 72 |on(.leaf|(.dollar|
|000021d0| 6f 75 74 28 62 6c 6f 63 | 6b 2b 34 34 29 29 29 0d |out(bloc|k+44))).|
|000021e0| 0c 80 2d 20 20 20 20 f2 | 64 61 74 61 72 65 70 6c |..-    .|datarepl|
|000021f0| 79 28 4d 65 73 73 61 67 | 65 5f 44 61 74 61 53 61 |y(Messag|e_DataSa|
|00002200| 76 65 41 63 6b 2c 2d 31 | 2c 22 22 29 0d 0c 8a 07 |veAck,-1|,"")....|
|00002210| 20 20 cb 0d 0c 94 05 e1 | 0d 0c 9e 04 0d 0c a8 04 |  ......|........|
|00002220| 0d 0c b2 0e dd 20 f2 70 | 72 65 71 75 69 74 0d 0c |..... .p|requit..|
|00002230| bc 15 20 20 ea 20 72 25 | 2c 71 75 69 74 73 65 6e |..  . r%|,quitsen|
|00002240| 64 65 72 0d 0c c6 0f 20 | 20 e7 20 6d 65 72 67 65 |der.... | . merge|
|00002250| 20 8c 0d 0c d0 24 20 20 | 20 20 71 75 69 74 73 65 | ....$  |  quitse|
|00002260| 6e 64 65 72 3d 62 6c 6f | 63 6b 21 6d 65 73 73 5f |nder=blo|ck!mess_|
|00002270| 54 61 73 6b 49 44 0d 0c | da 2d 20 20 20 20 62 6c |TaskID..|.-    bl|
|00002280| 6f 63 6b 21 6d 65 73 73 | 5f 59 6f 75 72 52 65 66 |ock!mess|_YourRef|
|00002290| 20 3d 20 62 6c 6f 63 6b | 21 6d 65 73 73 5f 4d 79 | = block|!mess_My|
|000022a0| 52 65 66 0d 0c e4 38 20 | 20 20 20 c8 99 20 22 57 |Ref...8 |   .. "W|
|000022b0| 69 6d 70 5f 53 65 6e 64 | 4d 65 73 73 61 67 65 22 |imp_Send|Message"|
|000022c0| 2c 31 39 2c 62 6c 6f 63 | 6b 2c 62 6c 6f 63 6b 21 |,19,bloc|k,block!|
|000022d0| 6d 65 73 73 5f 54 61 73 | 6b 49 44 0d 0c ee 14 20 |mess_Tas|kID.... |
|000022e0| 20 20 20 21 74 65 6d 70 | 62 6c 6f 63 6b 3d 30 0d |   !temp|block=0.|
|000022f0| 0c f8 69 20 20 20 20 f2 | 64 6f 6c 6c 61 72 69 6e |..i    .|dollarin|
|00002300| 28 74 65 6d 70 62 6c 6f | 63 6b 2b 34 2c 22 44 6f |(tempblo|ck+4,"Do|
|00002310| 20 79 6f 75 20 77 61 6e | 74 20 74 6f 20 61 62 61 | you wan|t to aba|
|00002320| 6e 64 6f 6e 20 74 68 65 | 20 6d 61 69 6c 20 6d 65 |ndon the| mail me|
|00002330| 72 67 65 3f 20 28 4f 4b | 20 74 6f 20 41 62 6f 72 |rge? (OK| to Abor|
|00002340| 74 2c 20 43 61 6e 63 65 | 6c 20 74 6f 20 63 6f 6e |t, Cance|l to con|
|00002350| 74 69 6e 75 65 29 22 29 | 0d 0d 02 4d 20 20 20 20 |tinue)")|...M    |
|00002360| c8 99 20 22 57 69 6d 70 | 5f 52 65 70 6f 72 74 45 |.. "Wimp|_ReportE|
|00002370| 72 72 6f 72 22 2c 74 65 | 6d 70 62 6c 6f 63 6b 2c |rror",te|mpblock,|
|00002380| 25 31 30 30 31 31 2c 22 | 4d 65 73 73 61 67 65 20 |%10011,"|Message |
|00002390| 66 72 6f 6d 20 22 2b 61 | 70 70 6e 61 6d 65 24 20 |from "+a|ppname$ |
|000023a0| b8 20 2c 72 25 0d 0d 0c | 10 20 20 20 20 e7 20 72 |. ,r%...|.    . r|
|000023b0| 25 3d 31 20 8c 0d 0d 16 | 13 20 20 20 20 20 20 f2 |%=1 ....|.      .|
|000023c0| 6d 65 72 67 65 6f 66 66 | 0d 0d 20 2b 20 20 20 20 |mergeoff|.. +    |
|000023d0| 20 20 c8 99 20 22 57 69 | 6d 70 5f 47 65 74 43 61 |  .. "Wi|mp_GetCa|
|000023e0| 72 65 74 50 6f 73 69 74 | 69 6f 6e 22 2c 2c 62 6c |retPosit|ion",,bl|
|000023f0| 6f 63 6b 0d 0d 2a 17 20 | 20 20 20 20 20 62 6c 6f |ock..*. |     blo|
|00002400| 63 6b 21 32 34 3d 26 31 | 46 43 0d 0d 34 32 20 20 |ck!24=&1|FC..42  |
|00002410| 20 20 20 20 c8 99 20 22 | 57 69 6d 70 5f 53 65 6e |    .. "|Wimp_Sen|
|00002420| 64 4d 65 73 73 61 67 65 | 22 2c 38 2c 62 6c 6f 63 |dMessage|",8,bloc|
|00002430| 6b 2c 71 75 69 74 73 65 | 6e 64 65 72 0d 0d 3e 09 |k,quitse|nder..>.|
|00002440| 20 20 20 20 cd 0d 0d 48 | 07 20 20 cd 0d 0d 52 05 |    ...H|.  ...R.|
|00002450| e1 0d 0d 5c 04 0d 0d 66 | 04 0d 0d 70 12 dd 20 f2 |...\...f|...p.. .|
|00002460| 64 61 74 61 6c 6f 61 64 | 61 63 6b 0d 0d 7a 28 20 |dataload|ack..z( |
|00002470| 20 e7 20 62 6c 6f 63 6b | 21 6d 65 73 73 5f 59 6f | . block|!mess_Yo|
|00002480| 75 72 52 65 66 3d 64 61 | 74 61 6f 70 65 6e 72 65 |urRef=da|taopenre|
|00002490| 66 20 8c 0d 0d 84 34 20 | 20 20 20 f2 73 65 74 64 |f ....4 |   .setd|
|000024a0| 65 73 74 69 6e 61 74 69 | 6f 6e 28 a4 6c 65 61 66 |estinati|on(.leaf|
|000024b0| 28 a4 64 6f 6c 6c 61 72 | 6f 75 74 28 62 6c 6f 63 |(.dollar|out(bloc|
|000024c0| 6b 2b 34 34 29 29 29 0d | 0d 8e 07 20 20 cd 0d 0d |k+44))).|...  ...|
|000024d0| 98 05 e1 0d 0d a2 04 0d | 0d ac 04 0d 0d b6 15 dd |........|........|
|000024e0| 20 f2 72 65 64 72 61 77 | 28 77 69 6e 64 6f 77 29 | .redraw|(window)|
|000024f0| 0d 0d c0 0c ef 34 2c 32 | 36 2c 33 30 0d 0d ca 1d |.....4,2|6,30....|
|00002500| f1 22 49 27 6d 20 68 65 | 72 65 21 20 22 3b b3 28 |."I'm he|re! ";.(|
|00002510| 32 30 30 29 3b 22 20 20 | 22 0d 0d d4 05 e1 0d 0d |200);"  |".......|
|00002520| de 04 0d 0d e8 04 0d 0d | f2 0b dd 20 f2 6e 75 6c |........|... .nul|
|00002530| 6c 0d 0d fc 18 20 20 e7 | 20 70 65 6e 64 69 6e 67 |l....  .| pending|
|00002540| 73 65 74 64 65 73 74 20 | 8c 0d 0e 06 25 20 20 20 |setdest |....%   |
|00002550| 20 f2 73 65 74 64 65 73 | 74 69 6e 61 74 69 6f 6e | .setdes|tination|
|00002560| 28 70 65 6e 64 69 6e 67 | 64 65 73 74 24 29 0d 0e |(pending|dest$)..|
|00002570| 10 18 20 20 20 20 70 65 | 6e 64 69 6e 67 73 65 74 |..    pe|ndingset|
|00002580| 64 65 73 74 3d a3 0d 0e | 1a 17 20 20 20 20 70 65 |dest=...|..    pe|
|00002590| 6e 64 69 6e 67 64 65 73 | 74 24 3d 22 22 0d 0e 24 |ndingdes|t$=""..$|
|000025a0| 1d 20 20 20 20 70 6f 6c | 6c 6d 61 73 6b 3d 70 72 |.    pol|lmask=pr|
|000025b0| 65 76 65 6e 74 6e 75 6c | 6c 73 0d 0e 2e 07 20 20 |eventnul|ls....  |
|000025c0| cd 0d 0e 38 05 e1 0d 0e | 42 04 0d 0e 4c 04 0d 0e |...8....|B...L...|
|000025d0| 56 51 f4 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |VQ.-----|--------|
|000025e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000025f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002600| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002610| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 3b 0d |--------|------;.|
|00002620| 0e 60 35 f4 20 20 49 6d | 70 75 6c 73 65 20 6d 65 |.`5.  Im|pulse me|
|00002630| 74 68 6f 64 20 64 65 63 | 6f 64 69 6e 67 20 61 6e |thod dec|oding an|
|00002640| 64 20 69 6d 70 6c 65 6d | 65 6e 74 61 74 69 6f 6e |d implem|entation|
|00002650| 73 2e 2e 2e 0d 0e 6a 04 | 0d 0e 74 23 dd 20 f2 63 |s.....j.|..t#. .c|
|00002660| 6f 6d 6d 61 6e 64 28 74 | 6f 6b 65 6e 2c 70 61 72 |ommand(t|oken,par|
|00002670| 61 6d 73 2c 6f 62 6a 65 | 63 74 29 0d 0e 7e 10 20 |ams,obje|ct)..~. |
|00002680| 20 c8 8e 20 74 6f 6b 65 | 6e 20 ca 0d 0e 88 32 20 | .. toke|n ....2 |
|00002690| 20 20 20 c9 20 54 5f 47 | 65 74 46 69 65 6c 64 20 |   . T_G|etField |
|000026a0| 20 20 20 3a 20 f2 67 65 | 74 66 69 65 6c 64 28 70 |   : .ge|tfield(p|
|000026b0| 61 72 61 6d 73 2c 6f 62 | 6a 65 63 74 29 0d 0e 92 |arams,ob|ject)...|
|000026c0| 31 20 20 20 20 c9 20 54 | 5f 47 65 74 44 61 74 61 |1    . T|_GetData|
|000026d0| 20 20 20 20 20 3a 20 f2 | 67 65 74 64 61 74 61 28 |     : .|getdata(|
|000026e0| 70 61 72 61 6d 73 2c 6f | 62 6a 65 63 74 29 0d 0e |params,o|bject)..|
|000026f0| 9c 35 20 20 20 20 c9 20 | 54 5f 47 65 74 54 69 6d |.5    . |T_GetTim|
|00002700| 65 44 61 74 65 20 3a 20 | f2 67 65 74 74 69 6d 65 |eDate : |.gettime|
|00002710| 64 61 74 65 28 70 61 72 | 61 6d 73 2c 6f 62 6a 65 |date(par|ams,obje|
|00002720| 63 74 29 0d 0e a6 07 20 | 20 cb 0d 0e b0 05 e1 0d |ct).... | .......|
|00002730| 0e ba 04 0d 0e c4 04 0d | 0e ce 1e dd 20 f2 67 65 |........|.... .ge|
|00002740| 74 66 69 65 6c 64 28 70 | 61 72 61 6d 73 2c 6f 62 |tfield(p|arams,ob|
|00002750| 6a 65 63 74 29 0d 0e d8 | 12 20 20 ea 20 66 69 65 |ject)...|.  . fie|
|00002760| 6c 64 69 6e 64 65 78 0d | 0e e2 15 20 20 e7 20 70 |ldindex.|...  . p|
|00002770| 61 72 61 6d 73 3d 2d 31 | 20 8c 20 e1 0d 0e ec 22 |arams=-1| . ...."|
|00002780| 20 20 66 69 65 6c 64 69 | 6e 64 65 78 3d a4 77 6f |  fieldi|ndex=.wo|
|00002790| 72 64 28 70 61 72 61 6d | 73 21 30 2b 31 29 0d 0e |rd(param|s!0+1)..|
|000027a0| f6 39 20 20 e7 20 66 69 | 65 6c 64 69 6e 64 65 78 |.9  . fi|eldindex|
|000027b0| 3c 31 20 84 20 66 69 65 | 6c 64 69 6e 64 65 78 3e |<1 . fie|ldindex>|
|000027c0| 6d 61 78 66 69 65 6c 64 | 20 8c 20 66 69 65 6c 64 |maxfield| . field|
|000027d0| 69 6e 64 65 78 3d 31 0d | 0f 00 27 20 20 f2 74 72 |index=1.|..'  .tr|
|000027e0| 61 6e 73 72 65 70 6c 79 | 28 66 69 65 6c 64 24 28 |ansreply|(field$(|
|000027f0| 66 69 65 6c 64 69 6e 64 | 65 78 2d 31 29 29 0d 0f |fieldind|ex-1))..|
|00002800| 0a 05 e1 0d 0f 14 04 0d | 0f 1e 04 0d 0f 28 1d dd |........|.....(..|
|00002810| 20 f2 67 65 74 64 61 74 | 61 28 70 61 72 61 6d 73 | .getdat|a(params|
|00002820| 2c 6f 62 6a 65 63 74 29 | 0d 0f 32 09 20 20 ea 20 |,object)|..2.  . |
|00002830| 85 0d 0f 3c 27 20 20 ee | 20 85 20 ea 20 f2 74 72 |...<'  .| . . .tr|
|00002840| 61 6e 73 72 65 70 6c 79 | 28 22 45 72 72 6f 72 21 |ansreply|("Error!|
|00002850| 20 22 2b f6 24 29 3a e1 | 0d 0f 46 28 20 20 f2 74 | "+.$):.|..F(  .t|
|00002860| 72 61 6e 73 72 65 70 6c | 79 28 a0 28 a4 64 6f 6c |ransrepl|y(.(.dol|
|00002870| 6c 61 72 6f 75 74 28 70 | 61 72 61 6d 73 29 29 29 |larout(p|arams)))|
|00002880| 0d 0f 50 05 e1 0d 0f 5a | 04 0d 0f 64 04 0d 0f 6e |..P....Z|...d...n|
|00002890| 21 dd 20 f2 67 65 74 74 | 69 6d 65 64 61 74 65 28 |!. .gett|imedate(|
|000028a0| 70 61 72 61 6d 73 2c 6f | 62 6a 65 63 74 29 0d 0f |params,o|bject)..|
|000028b0| 78 0f 20 20 ea 20 66 6f | 72 6d 61 74 24 0d 0f 82 |x.  . fo|rmat$...|
|000028c0| 20 20 20 66 6f 72 6d 61 | 74 24 3d a4 64 6f 6c 6c |   forma|t$=.doll|
|000028d0| 61 72 6f 75 74 28 70 61 | 72 61 6d 73 29 0d 0f 8c |arout(pa|rams)...|
|000028e0| 30 20 20 e7 20 66 6f 72 | 6d 61 74 24 3d 22 22 20 |0  . for|mat$="" |
|000028f0| 8c 20 66 6f 72 6d 61 74 | 24 3d 22 25 44 59 25 53 |. format|$="%DY%S|
|00002900| 54 20 25 4d 4f 20 25 43 | 45 25 59 52 22 0d 0f 96 |T %MO %C|E%YR"...|
|00002910| 13 20 20 74 65 6d 70 62 | 6c 6f 63 6b 21 30 3d 33 |.  tempb|lock!0=3|
|00002920| 0d 0f a0 1f 20 20 c8 99 | 20 22 4f 53 5f 57 6f 72 |....  ..| "OS_Wor|
|00002930| 64 22 2c 31 34 2c 74 65 | 6d 70 62 6c 6f 63 6b 0d |d",14,te|mpblock.|
|00002940| 0f aa 50 20 20 c8 99 20 | 22 4f 53 5f 43 6f 6e 76 |..P  .. |"OS_Conv|
|00002950| 65 72 74 44 61 74 65 41 | 6e 64 54 69 6d 65 22 2c |ertDateA|ndTime",|
|00002960| 74 65 6d 70 62 6c 6f 63 | 6b 2c 74 65 6d 70 62 6c |tempbloc|k,tempbl|
|00002970| 6f 63 6b 2b 32 30 2c 74 | 65 6d 70 62 6c 6f 63 6b |ock+20,t|empblock|
|00002980| 73 69 7a 65 2d 32 30 2c | 66 6f 72 6d 61 74 24 0d |size-20,|format$.|
|00002990| 0f b4 2b 20 20 f2 74 72 | 61 6e 73 72 65 70 6c 79 |..+  .tr|ansreply|
|000029a0| 28 a4 64 6f 6c 6c 61 72 | 6f 75 74 28 74 65 6d 70 |(.dollar|out(temp|
|000029b0| 62 6c 6f 63 6b 2b 32 30 | 29 29 0d 0f be 05 e1 0d |block+20|))......|
|000029c0| 0f c8 04 0d 0f d2 04 0d | 0f dc 1a dd 20 f2 74 72 |........|.... .tr|
|000029d0| 61 6e 73 72 65 70 6c 79 | 28 73 74 72 69 6e 67 24 |ansreply|(string$|
|000029e0| 29 0d 0f e6 18 f4 50 52 | 4f 43 72 65 70 6f 72 74 |).....PR|OCreport|
|000029f0| 28 73 74 72 69 6e 67 24 | 29 0d 0f f0 10 20 20 74 |(string$|)....  t|
|00002a00| 72 61 6e 73 6d 69 74 3d | b9 0d 0f fa 13 20 20 74 |ransmit=|.....  t|
|00002a10| 72 61 6e 73 6d 69 74 70 | 74 72 3d 30 0d 10 04 26 |ransmitp|tr=0...&|
|00002a20| 20 20 f2 64 6f 6c 6c 61 | 72 69 6e 28 74 72 61 6e |  .dolla|rin(tran|
|00002a30| 73 6d 69 74 62 6c 6f 63 | 6b 2c 73 74 72 69 6e 67 |smitbloc|k,string|
|00002a40| 24 29 0d 10 0e 2c 20 20 | 74 72 61 6e 73 6d 69 74 |$)...,  |transmit|
|00002a50| 74 6f 70 3d 28 a9 28 73 | 74 72 69 6e 67 24 29 2b |top=(.(s|tring$)+|
|00002a60| 31 2b 33 29 80 26 46 46 | 46 46 46 46 46 43 0d 10 |1+3).&FF|FFFFFC..|
|00002a70| 18 22 20 20 74 72 61 6e | 73 6d 69 74 74 61 67 3d |."  tran|smittag=|
|00002a80| a4 6e 65 78 74 74 72 61 | 6e 73 6d 69 74 74 61 67 |.nexttra|nsmittag|
|00002a90| 0d 10 22 6f 20 20 c8 99 | 20 22 49 6d 70 75 6c 73 |.."o  ..| "Impuls|
|00002aa0| 65 5f 53 65 6e 64 4d 65 | 73 73 61 67 65 22 2c 49 |e_SendMe|ssage",I|
|00002ab0| 6d 70 75 6c 73 65 5f 52 | 65 70 6c 79 2c 22 48 61 |mpulse_R|eply,"Ha|
|00002ac0| 6c 6c 6f 20 70 65 65 70 | 73 21 22 2c 2d 31 2c 2c |llo peep|s!",-1,,|
|00002ad0| 2c 74 72 61 6e 73 6d 69 | 74 74 61 67 2c 74 61 73 |,transmi|ttag,tas|
|00002ae0| 6b 68 61 6e 64 6c 65 2c | 74 72 61 6e 73 6d 69 74 |khandle,|transmit|
|00002af0| 74 6f 70 2d 74 72 61 6e | 73 6d 69 74 70 74 72 0d |top-tran|smitptr.|
|00002b00| 10 2c 05 e1 0d 10 36 04 | 0d 10 40 04 0d 10 4a 13 |.,....6.|..@...J.|
|00002b10| dd 20 f2 72 65 70 6c 79 | 28 74 6f 6b 65 6e 29 0d |. .reply|(token).|
|00002b20| 10 54 10 20 20 c8 8e 20 | 74 6f 6b 65 6e 20 ca 0d |.T.  .. |token ..|
|00002b30| 10 5e 1f 20 20 20 20 c9 | 20 54 5f 50 72 69 6e 74 |.^.    .| T_Print|
|00002b40| 20 3a 20 f2 72 65 70 6c | 79 70 72 69 6e 74 0d 10 | : .repl|yprint..|
|00002b50| 68 1e 20 20 20 20 c9 20 | 54 5f 4d 65 72 67 65 20 |h.    . |T_Merge |
|00002b60| 3a 20 f2 6d 65 72 67 65 | 64 6f 6e 65 0d 10 72 07 |: .merge|done..r.|
|00002b70| 20 20 cb 0d 10 7c 05 e1 | 0d 10 86 04 0d 10 90 04 |  ...|..|........|
|00002b80| 0d 10 9a 11 dd 20 f2 72 | 65 70 6c 79 70 72 69 6e |..... .r|eplyprin|
|00002b90| 74 0d 10 a4 10 20 20 70 | 72 69 6e 74 69 6e 67 3d |t....  p|rinting=|
|00002ba0| a3 0d 10 ae 16 20 20 e7 | 20 70 65 6e 64 69 6e 67 |.....  .| pending|
|00002bb0| 63 6c 6f 73 65 20 8c 0d | 10 b8 22 20 20 20 20 f2 |close ..|.."    .|
|00002bc0| 63 6c 6f 73 65 77 69 6e | 64 6f 77 28 69 6d 70 6f |closewin|dow(impo|
|00002bd0| 72 74 77 69 6e 64 6f 77 | 29 0d 10 c2 07 20 20 cc |rtwindow|)....  .|
|00002be0| 0d 10 cc 2e 20 20 20 20 | e7 20 a4 73 65 6c 65 63 |....    |. .selec|
|00002bf0| 74 65 64 28 69 6d 70 6f | 72 74 77 69 6e 64 6f 77 |ted(impo|rtwindow|
|00002c00| 2c 49 5f 70 72 69 6e 74 | 61 6c 6c 29 20 8c 0d 10 |,I_print|all) ...|
|00002c10| d6 1a 20 20 20 20 20 20 | f2 6d 65 72 67 65 6e 65 |..      |.mergene|
|00002c20| 78 74 72 65 63 6f 72 64 | 0d 10 e0 09 20 20 20 20 |xtrecord|....    |
|00002c30| cc 0d 10 ea 41 20 20 20 | 20 20 20 f2 73 65 74 73 |....A   |   .sets|
|00002c40| 74 61 74 65 73 28 69 6d | 70 6f 72 74 77 69 6e 64 |tates(im|portwind|
|00002c50| 6f 77 2c 22 49 5f 65 64 | 69 74 2c 49 5f 70 72 69 |ow,"I_ed|it,I_pri|
|00002c60| 6e 74 2c 49 5f 6e 65 78 | 74 22 2c 30 2c 67 72 65 |nt,I_nex|t",0,gre|
|00002c70| 79 29 0d 10 f4 09 20 20 | 20 20 cd 0d 10 fe 07 20 |y)....  |  ..... |
|00002c80| 20 cd 0d 11 08 05 e1 0d | 11 12 04 0d 11 1c 04 0d | .......|........|
|00002c90| 11 26 10 dd 20 f2 6d 65 | 72 67 65 64 6f 6e 65 0d |.&.. .me|rgedone.|
|00002ca0| 11 30 11 20 20 f2 64 6f | 6e 65 72 65 63 6f 72 64 |.0.  .do|nerecord|
|00002cb0| 0d 11 3a 2c 20 20 e7 20 | a4 73 65 6c 65 63 74 65 |..:,  . |.selecte|
|00002cc0| 64 28 69 6d 70 6f 72 74 | 77 69 6e 64 6f 77 2c 49 |d(import|window,I|
|00002cd0| 5f 70 72 69 6e 74 61 6c | 6c 29 20 8c 0d 11 44 1e |_printal|l) ...D.|
|00002ce0| 20 20 20 20 f2 73 65 6e | 64 28 22 50 72 69 6e 74 |    .sen|d("Print|
|00002cf0| 22 2c 54 5f 50 72 69 6e | 74 29 0d 11 4e 12 20 20 |",T_Prin|t)..N.  |
|00002d00| 20 20 70 72 69 6e 74 69 | 6e 67 3d b9 0d 11 58 07 |  printi|ng=...X.|
|00002d10| 20 20 cc 0d 11 62 3f 20 | 20 20 20 f2 73 65 74 73 |  ...b? |   .sets|
|00002d20| 74 61 74 65 73 28 69 6d | 70 6f 72 74 77 69 6e 64 |tates(im|portwind|
|00002d30| 6f 77 2c 22 49 5f 65 64 | 69 74 2c 49 5f 70 72 69 |ow,"I_ed|it,I_pri|
|00002d40| 6e 74 2c 49 5f 6e 65 78 | 74 22 2c 30 2c 67 72 65 |nt,I_nex|t",0,gre|
|00002d50| 79 29 0d 11 6c 07 20 20 | cd 0d 11 76 05 e1 0d 11 |y)..l.  |...v....|
|00002d60| 80 04 0d 11 8a 04 0d 11 | 94 28 dd 20 f2 73 65 6e |........|.(. .sen|
|00002d70| 64 64 61 74 61 28 74 6f | 6b 65 6e 2c 62 75 66 66 |ddata(to|ken,buff|
|00002d80| 65 72 2c 62 75 66 66 65 | 72 73 69 7a 65 29 0d 11 |er,buffe|rsize)..|
|00002d90| 9e 0c 20 20 ea 20 73 69 | 7a 65 0d 11 a8 59 20 20 |..  . si|ze...Y  |
|00002da0| e7 20 ac 20 74 72 61 6e | 73 6d 69 74 20 84 20 28 |. . tran|smit . (|
|00002db0| 74 6f 6b 65 6e 3c 3e 74 | 72 61 6e 73 6d 69 74 74 |token<>t|ransmitt|
|00002dc0| 61 67 29 20 8c 20 85 20 | 32 30 30 2c 22 52 65 63 |ag) . . |200,"Rec|
|00002dd0| 65 69 76 65 64 20 72 65 | 71 75 65 73 74 20 74 6f |eived re|quest to|
|00002de0| 20 73 65 6e 64 20 75 6e | 6b 6e 6f 77 6e 20 64 61 | send un|known da|
|00002df0| 74 61 22 0d 11 b2 22 20 | 20 73 69 7a 65 3d 74 72 |ta"..." | size=tr|
|00002e00| 61 6e 73 6d 69 74 74 6f | 70 2d 74 72 61 6e 73 6d |ansmitto|p-transm|
|00002e10| 69 74 70 74 72 0d 11 bc | 2d 20 20 e7 20 73 69 7a |itptr...|-  . siz|
|00002e20| 65 3c 62 75 66 66 65 72 | 73 69 7a 65 20 84 20 73 |e<buffer|size . s|
|00002e30| 69 7a 65 3d 30 20 8c 20 | 74 72 61 6e 73 6d 69 74 |ize=0 . |transmit|
|00002e40| 3d a3 0d 11 c6 29 20 20 | e7 20 73 69 7a 65 3e 62 |=....)  |. size>b|
|00002e50| 75 66 66 65 72 73 69 7a | 65 20 8c 20 73 69 7a 65 |uffersiz|e . size|
|00002e60| 3d 62 75 66 66 65 72 73 | 69 7a 65 0d 11 d0 4d 20 |=buffers|ize...M |
|00002e70| 20 c8 99 20 22 49 6d 70 | 75 6c 73 65 5f 54 72 61 | .. "Imp|ulse_Tra|
|00002e80| 6e 73 6d 69 74 44 61 74 | 61 22 2c 74 72 61 6e 73 |nsmitDat|a",trans|
|00002e90| 6d 69 74 70 74 72 2b 74 | 72 61 6e 73 6d 69 74 62 |mitptr+t|ransmitb|
|00002ea0| 6c 6f 63 6b 2c 73 69 7a | 65 2c 2c 2c 2c 2c 74 61 |lock,siz|e,,,,,ta|
|00002eb0| 73 6b 68 61 6e 64 6c 65 | 0d 11 da 17 20 20 74 72 |skhandle|....  tr|
|00002ec0| 61 6e 73 6d 69 74 70 74 | 72 2b 3d 73 69 7a 65 0d |ansmitpt|r+=size.|
|00002ed0| 11 e4 05 e1 0d 11 ee 04 | 0d 11 f8 04 0d 12 02 1d |........|........|
|00002ee0| dd 20 f2 73 65 6e 64 28 | 63 6f 6d 6d 24 2c 72 65 |. .send(|comm$,re|
|00002ef0| 70 6c 79 74 6f 6b 65 6e | 29 0d 12 0c 17 20 20 e7 |plytoken|)....  .|
|00002f00| 20 64 65 73 74 6e 61 6d | 65 24 3d 22 22 20 8c e1 | destnam|e$="" ..|
|00002f10| 0d 12 16 18 20 20 e7 20 | 72 65 70 6c 79 74 6f 6b |....  . |replytok|
|00002f20| 65 6e 3c 3e 2d 31 20 8c | 0d 12 20 70 20 20 20 20 |en<>-1 .|.. p    |
|00002f30| c8 99 22 49 6d 70 75 6c | 73 65 5f 53 65 6e 64 4d |.."Impul|se_SendM|
|00002f40| 65 73 73 61 67 65 22 2c | 49 6d 70 75 6c 73 65 5f |essage",|Impulse_|
|00002f50| 52 65 71 75 65 73 74 2c | 22 3a 49 6d 70 72 65 73 |Request,|":Impres|
|00002f60| 73 69 6f 6e 2e 22 2b 64 | 65 73 74 6e 61 6d 65 24 |sion."+d|estname$|
|00002f70| 2b 22 20 22 2b 63 6f 6d | 6d 24 2c 30 2c 30 2c 30 |+" "+com|m$,0,0,0|
|00002f80| 2c 72 65 70 6c 79 74 6f | 6b 65 6e 2c 74 61 73 6b |,replyto|ken,task|
|00002f90| 68 61 6e 64 6c 65 2c 30 | 0d 12 2a 07 20 20 cc 0d |handle,0|..*.  ..|
|00002fa0| 12 34 70 20 20 20 20 c8 | 99 22 49 6d 70 75 6c 73 |.4p    .|."Impuls|
|00002fb0| 65 5f 53 65 6e 64 4d 65 | 73 73 61 67 65 22 2c 49 |e_SendMe|ssage",I|
|00002fc0| 6d 70 75 6c 73 65 5f 43 | 6f 6d 6d 61 6e 64 2c 22 |mpulse_C|ommand,"|
|00002fd0| 3a 49 6d 70 72 65 73 73 | 69 6f 6e 2e 22 2b 64 65 |:Impress|ion."+de|
|00002fe0| 73 74 6e 61 6d 65 24 2b | 22 20 22 2b 63 6f 6d 6d |stname$+|" "+comm|
|00002ff0| 24 2c 30 2c 30 2c 30 2c | 72 65 70 6c 79 74 6f 6b |$,0,0,0,|replytok|
|00003000| 65 6e 2c 74 61 73 6b 68 | 61 6e 64 6c 65 2c 30 0d |en,taskh|andle,0.|
|00003010| 12 3e 07 20 20 cd 0d 12 | 48 05 e1 0d 12 52 04 0d |.>.  ...|H....R..|
|00003020| 12 5c 04 0d 12 66 51 f4 | 2d 2d 2d 2d 2d 2d 2d 2d |.\...fQ.|--------|
|00003030| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003040| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003050| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003060| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003070| 2d 2d 2d 3b 0d 12 70 1a | f4 20 20 55 74 69 6c 69 |---;..p.|.  Utili|
|00003080| 74 79 20 72 6f 75 74 69 | 6e 65 73 2e 2e 2e 0d 12 |ty routi|nes.....|
|00003090| 7a 04 0d 12 84 16 dd 20 | a4 6e 65 78 74 74 72 61 |z...... |.nexttra|
|000030a0| 6e 73 6d 69 74 74 61 67 | 0d 12 8e 14 74 72 61 6e |nsmittag|....tran|
|000030b0| 73 6d 69 74 63 6f 75 6e | 74 2b 3d 31 0d 12 98 12 |smitcoun|t+=1....|
|000030c0| 3d 74 72 61 6e 73 6d 69 | 74 63 6f 75 6e 74 0d 12 |=transmi|tcount..|
|000030d0| a2 04 0d 12 ac 04 0d 12 | b6 16 dd 20 f2 6d 65 72 |........|... .mer|
|000030e0| 67 65 6e 65 78 74 72 65 | 63 6f 72 64 0d 12 c0 15 |genextre|cord....|
|000030f0| 20 20 e7 20 ac 20 65 6e | 64 6f 66 64 61 74 61 20 |  . . en|dofdata |
|00003100| 8c 0d 12 ca 13 20 20 20 | 20 f2 6e 65 78 74 72 65 |.....   | .nextre|
|00003110| 63 6f 72 64 0d 12 d4 17 | 20 20 20 20 f2 73 68 6f |cord....|    .sho|
|00003120| 77 6e 65 78 74 72 65 63 | 6f 72 64 0d 12 de 1e 20 |wnextrec|ord.... |
|00003130| 20 20 20 f2 73 65 6e 64 | 28 22 4d 65 72 67 65 22 |   .send|("Merge"|
|00003140| 2c 54 5f 4d 65 72 67 65 | 29 0d 12 e8 42 20 20 20 |,T_Merge|)...B   |
|00003150| 20 f2 73 65 74 73 74 61 | 74 65 73 28 69 6d 70 6f | .setsta|tes(impo|
|00003160| 72 74 77 69 6e 64 6f 77 | 2c 22 49 5f 65 64 69 74 |rtwindow|,"I_edit|
|00003170| 2c 49 5f 70 72 69 6e 74 | 2c 49 5f 6e 65 78 74 22 |,I_print|,I_next"|
|00003180| 2c 67 72 65 79 2c 67 72 | 65 79 29 0d 12 f2 07 20 |,grey,gr|ey).... |
|00003190| 20 cc 0d 12 fc 32 20 20 | 20 20 f4 20 52 65 64 75 | ....2  |  . Redu|
|000031a0| 63 65 20 66 69 6c 65 20 | 62 75 66 66 65 72 20 62 |ce file |buffer b|
|000031b0| 61 63 6b 20 74 6f 20 7a | 65 72 6f 20 62 79 74 65 |ack to z|ero byte|
|000031c0| 73 2e 2e 2e 0d 13 06 35 | 20 20 20 20 f2 65 78 74 |s......5|    .ext|
|000031d0| 65 6e 64 5f 73 6c 6f 74 | 28 53 74 61 72 74 5f 4f |end_slot|(Start_O|
|000031e0| 66 5f 4d 65 6d 6f 72 79 | 25 2d 45 6e 64 5f 4f 66 |f_Memory|%-End_Of|
|000031f0| 5f 4d 65 6d 6f 72 79 25 | 29 0d 13 10 26 20 20 20 |_Memory%|)...&   |
|00003200| 20 f2 72 65 70 6f 72 74 | 28 22 41 6c 6c 20 72 65 | .report|("All re|
|00003210| 63 6f 72 64 73 20 64 6f | 6e 65 2e 2e 2e 22 29 0d |cords do|ne...").|
|00003220| 13 1a 11 20 20 20 20 f2 | 6d 65 72 67 65 6f 66 66 |...    .|mergeoff|
|00003230| 0d 13 24 07 20 20 cd 0d | 13 2e 05 e1 0d 13 38 04 |..$.  ..|......8.|
|00003240| 0d 13 42 04 0d 13 4c 2b | dd 20 f2 64 61 74 61 72 |..B...L+|. .datar|
|00003250| 65 70 6c 79 28 61 63 74 | 69 6f 6e 2c 66 69 6c 65 |eply(act|ion,file|
|00003260| 73 69 7a 65 2c 66 69 6c | 65 6e 61 6d 65 24 29 0d |size,fil|ename$).|
|00003270| 13 56 21 20 20 62 6c 6f | 63 6b 21 6d 65 73 73 5f |.V!  blo|ck!mess_|
|00003280| 41 63 74 69 6f 6e 20 20 | 3d 20 61 63 74 69 6f 6e |Action  |= action|
|00003290| 0d 13 60 2b 20 20 62 6c | 6f 63 6b 21 6d 65 73 73 |..`+  bl|ock!mess|
|000032a0| 5f 59 6f 75 72 52 65 66 | 20 3d 20 62 6c 6f 63 6b |_YourRef| = block|
|000032b0| 21 6d 65 73 73 5f 4d 79 | 52 65 66 0d 13 6a 38 20 |!mess_My|Ref..j8 |
|000032c0| 20 62 6c 6f 63 6b 21 6d | 65 73 73 5f 4c 65 6e 67 | block!m|ess_Leng|
|000032d0| 74 68 20 20 3d 20 28 34 | 34 2b a9 66 69 6c 65 6e |th  = (4|4+.filen|
|000032e0| 61 6d 65 24 2b 31 2b 33 | 29 80 26 46 46 46 46 46 |ame$+1+3|).&FFFFF|
|000032f0| 46 46 43 0d 13 74 23 20 | 20 62 6c 6f 63 6b 21 33 |FFC..t# | block!3|
|00003300| 36 20 20 20 20 20 20 20 | 20 20 20 20 3d 20 66 69 |6       |    = fi|
|00003310| 6c 65 73 69 7a 65 0d 13 | 7e 23 20 20 f2 64 6f 6c |lesize..|~#  .dol|
|00003320| 6c 61 72 69 6e 28 62 6c | 6f 63 6b 2b 34 34 2c 66 |larin(bl|ock+44,f|
|00003330| 69 6c 65 6e 61 6d 65 24 | 29 0d 13 88 36 20 20 c8 |ilename$|)...6  .|
|00003340| 99 20 22 57 69 6d 70 5f | 53 65 6e 64 4d 65 73 73 |. "Wimp_|SendMess|
|00003350| 61 67 65 22 2c 31 37 2c | 62 6c 6f 63 6b 2c 62 6c |age",17,|block,bl|
|00003360| 6f 63 6b 21 6d 65 73 73 | 5f 54 61 73 6b 49 44 0d |ock!mess|_TaskID.|
|00003370| 13 92 05 e1 0d 13 9c 04 | 0d 13 a6 04 0d 13 b0 1a |........|........|
|00003380| dd 20 f2 6c 6f 61 64 66 | 69 6c 65 28 66 69 6c 65 |. .loadf|ile(file|
|00003390| 6e 61 6d 65 24 29 0d 13 | ba 22 20 20 ea 20 74 79 |name$)..|."  . ty|
|000033a0| 70 65 2c 6c 65 6e 67 74 | 68 2c 65 78 65 63 75 74 |pe,lengt|h,execut|
|000033b0| 69 6f 6e 2c 73 69 7a 65 | 0d 13 c4 3d 20 20 c8 99 |ion,size|...=  ..|
|000033c0| 20 22 4f 53 5f 46 69 6c | 65 22 2c 31 37 2c 66 69 | "OS_Fil|e",17,fi|
|000033d0| 6c 65 6e 61 6d 65 24 20 | b8 20 74 79 70 65 2c 2c |lename$ |. type,,|
|000033e0| 6c 65 6e 67 74 68 2c 65 | 78 65 63 75 74 69 6f 6e |length,e|xecution|
|000033f0| 2c 73 69 7a 65 0d 13 ce | 2d 20 20 e7 20 74 79 70 |,size...|-  . typ|
|00003400| 65 3c 3e 31 20 8c 20 85 | 20 32 30 30 2c 22 54 68 |e<>1 . .| 200,"Th|
|00003410| 69 73 20 69 73 20 6e 6f | 74 20 61 20 66 69 6c 65 |is is no|t a file|
|00003420| 21 22 0d 13 d8 49 20 20 | e7 20 28 6c 65 6e 67 74 |!"...I  |. (lengt|
|00003430| 68 20 80 26 46 46 46 46 | 46 46 30 30 29 3c 3e 26 |h .&FFFF|FF00)<>&|
|00003440| 46 46 46 46 46 46 30 30 | 20 8c 20 85 20 32 30 30 |FFFFFF00| . . 200|
|00003450| 2c 22 54 68 69 73 20 69 | 73 20 6e 6f 74 20 61 20 |,"This i|s not a |
|00003460| 74 65 78 74 20 66 69 6c | 65 21 22 0d 13 e2 18 20 |text fil|e!".... |
|00003470| 20 f2 65 78 74 65 6e 64 | 5f 73 6c 6f 74 28 73 69 | .extend|_slot(si|
|00003480| 7a 65 29 0d 13 ec 32 20 | 20 c8 99 20 22 4f 53 5f |ze)...2 | .. "OS_|
|00003490| 46 69 6c 65 22 2c 31 36 | 2c 66 69 6c 65 6e 61 6d |File",16|,filenam|
|000034a0| 65 24 2c 53 74 61 72 74 | 5f 4f 66 5f 4d 65 6d 6f |e$,Start|_Of_Memo|
|000034b0| 72 79 25 2c 30 0d 13 f6 | 07 20 20 f4 0d 14 00 38 |ry%,0...|.  ....8|
|000034c0| 20 20 f4 20 53 65 74 20 | 75 70 20 74 68 65 20 76 |  . Set |up the v|
|000034d0| 61 72 69 61 62 6c 65 73 | 20 75 73 65 64 20 69 6e |ariables| used in|
|000034e0| 20 70 61 72 73 69 6e 67 | 20 74 68 65 20 64 61 74 | parsing| the dat|
|000034f0| 61 2e 2e 2e 0d 14 0a 1f | 20 20 66 69 6c 65 62 61 |a.......|  fileba|
|00003500| 73 65 3d 53 74 61 72 74 | 5f 4f 66 5f 4d 65 6d 6f |se=Start|_Of_Memo|
|00003510| 72 79 25 0d 14 14 1b 20 | 20 66 69 6c 65 74 6f 70 |ry%.... | filetop|
|00003520| 3d 66 69 6c 65 62 61 73 | 65 2b 73 69 7a 65 0d 14 |=filebas|e+size..|
|00003530| 1e 16 20 20 66 69 6c 65 | 70 74 72 3d 66 69 6c 65 |..  file|ptr=file|
|00003540| 62 61 73 65 0d 14 28 11 | 20 20 65 6e 64 6f 66 64 |base..(.|  endofd|
|00003550| 61 74 61 3d a3 0d 14 32 | 14 20 20 63 68 61 72 3d |ata=...2|.  char=|
|00003560| 65 6e 64 6f 66 6c 69 6e | 65 0d 14 3c 2d 20 20 6e |endoflin|e..<-  n|
|00003570| 75 6d 6c 65 66 74 3d a4 | 63 6f 75 6e 74 72 65 63 |umleft=.|countrec|
|00003580| 6f 72 64 73 28 66 69 6c | 65 62 61 73 65 2c 66 69 |ords(fil|ebase,fi|
|00003590| 6c 65 74 6f 70 29 0d 14 | 46 0f 20 20 6e 75 6d 64 |letop)..|F.  numd|
|000035a0| 6f 6e 65 3d 30 0d 14 50 | 19 20 20 f2 66 69 6e 64 |one=0..P|.  .find|
|000035b0| 73 74 61 72 74 28 66 69 | 6c 65 70 74 72 29 0d 14 |start(fi|leptr)..|
|000035c0| 5a 07 20 20 f4 0d 14 64 | 38 20 20 f4 20 53 65 74 |Z.  ...d|8  . Set|
|000035d0| 20 75 70 20 74 68 65 20 | 75 73 65 72 20 69 6e 74 | up the |user int|
|000035e0| 65 72 66 61 63 65 20 74 | 6f 20 72 65 66 6c 65 63 |erface t|o reflec|
|000035f0| 74 20 74 68 65 20 64 61 | 74 61 2e 2e 2e 0d 14 6e |t the da|ta.....n|
|00003600| 29 20 20 f2 64 6f 6c 6c | 61 72 69 6e 28 65 64 69 |)  .doll|arin(edi|
|00003610| 74 73 2b 46 5f 6e 75 6d | 6c 65 66 74 2c c3 6e 75 |ts+F_num|left,.nu|
|00003620| 6d 6c 65 66 74 29 0d 14 | 78 2f 20 20 f2 64 6f 6c |mleft)..|x/  .dol|
|00003630| 6c 61 72 69 6e 28 65 64 | 69 74 73 2b 46 5f 64 61 |larin(ed|its+F_da|
|00003640| 74 61 73 70 72 69 74 65 | 2c 22 53 66 69 6c 65 5f |tasprite|,"Sfile_|
|00003650| 66 66 66 22 29 0d 14 82 | 32 20 20 f2 64 6f 6c 6c |fff")...|2  .doll|
|00003660| 61 72 69 6e 28 65 64 69 | 74 73 2b 46 5f 64 61 74 |arin(edi|ts+F_dat|
|00003670| 61 6e 61 6d 65 2c a4 6c | 65 61 66 28 66 69 6c 65 |aname,.l|eaf(file|
|00003680| 6e 61 6d 65 24 29 29 0d | 14 8c 43 20 20 f2 73 65 |name$)).|..C  .se|
|00003690| 74 73 74 61 74 65 73 28 | 69 6d 70 6f 72 74 77 69 |tstates(|importwi|
|000036a0| 6e 64 6f 77 2c 22 49 5f | 6e 75 6d 6c 65 66 74 2c |ndow,"I_|numleft,|
|000036b0| 49 5f 6e 75 6d 64 6f 6e | 65 2c 49 5f 64 61 74 61 |I_numdon|e,I_data|
|000036c0| 62 61 73 65 22 2c 30 2c | 30 29 0d 14 96 05 e1 0d |base",0,|0)......|
|000036d0| 14 a0 04 0d 14 aa 04 0d | 14 b4 16 dd 20 f2 65 6e |........|.... .en|
|000036e0| 73 75 72 65 77 69 6d 70 | 73 63 72 61 70 0d 14 be |surewimp|scrap...|
|000036f0| 1a 20 20 ea 20 65 78 69 | 73 74 73 2c 6c 6f 63 61 |.  . exi|sts,loca|
|00003700| 6c 73 63 72 61 70 24 0d | 14 c8 42 20 20 c8 99 20 |lscrap$.|..B  .. |
|00003710| 22 58 4f 53 5f 52 65 61 | 64 56 61 72 56 61 6c 22 |"XOS_Rea|dVarVal"|
|00003720| 2c 22 57 69 6d 70 24 53 | 63 72 61 70 22 2c 74 65 |,"Wimp$S|crap",te|
|00003730| 6d 70 62 6c 6f 63 6b 2c | 2d 31 2c 30 2c 30 20 b8 |mpblock,|-1,0,0 .|
|00003740| 20 2c 2c 65 78 69 73 74 | 73 0d 14 d2 12 20 20 e7 | ,,exist|s....  .|
|00003750| 20 65 78 69 73 74 73 3d | 30 20 8c 0d 14 dc 28 20 | exists=|0 ....( |
|00003760| 20 20 20 6c 6f 63 61 6c | 73 63 72 61 70 24 3d 61 |   local|scrap$=a|
|00003770| 70 70 64 69 72 24 2b 22 | 2e 53 63 72 61 70 46 69 |ppdir$+"|.ScrapFi|
|00003780| 6c 65 22 0d 14 e6 43 20 | 20 20 20 c8 99 20 22 4f |le"...C |   .. "O|
|00003790| 53 5f 53 65 74 56 61 72 | 56 61 6c 22 2c 22 57 69 |S_SetVar|Val","Wi|
|000037a0| 6d 70 24 53 63 72 61 70 | 22 2c 6c 6f 63 61 6c 73 |mp$Scrap|",locals|
|000037b0| 63 72 61 70 24 2c a9 6c | 6f 63 61 6c 73 63 72 61 |crap$,.l|ocalscra|
|000037c0| 70 24 2c 30 2c 32 0d 14 | f0 07 20 20 cd 0d 14 fa |p$,0,2..|..  ....|
|000037d0| 05 e1 0d 15 04 04 0d 15 | 0e 04 0d 15 18 11 dd 20 |........|....... |
|000037e0| f2 6e 65 78 74 72 65 63 | 6f 72 64 0d 15 22 13 20 |.nextrec|ord..". |
|000037f0| 20 ea 20 69 25 2c 6c 61 | 73 74 63 68 61 72 0d 15 | . i%,la|stchar..|
|00003800| 2c 17 20 20 c8 99 20 22 | 48 6f 75 72 67 6c 61 73 |,.  .. "|Hourglas|
|00003810| 73 5f 4f 6e 22 0d 15 36 | 19 20 20 e3 20 69 25 3d |s_On"..6|.  . i%=|
|00003820| 30 20 b8 20 6d 61 78 66 | 69 65 6c 64 2d 31 0d 15 |0 . maxf|ield-1..|
|00003830| 40 15 20 20 20 20 66 69 | 65 6c 64 24 28 69 25 29 |@.    fi|eld$(i%)|
|00003840| 3d 22 22 0d 15 4a 07 20 | 20 ed 0d 15 54 0a 20 20 |=""..J. | ...T.  |
|00003850| 69 25 3d 30 0d 15 5e 07 | 20 20 f5 0d 15 68 11 20 |i%=0..^.|  ...h. |
|00003860| 20 20 20 c8 8e 20 63 68 | 61 72 20 ca 0d 15 72 13 |   .. ch|ar ...r.|
|00003870| 20 20 20 20 c9 20 65 6e | 64 6f 66 6c 69 6e 65 0d |    . en|dofline.|
|00003880| 15 7c 0f 20 20 20 20 20 | 20 69 25 2b 3d 31 0d 15 |.|.     | i%+=1..|
|00003890| 86 09 20 20 20 20 7f 0d | 15 90 31 20 20 20 20 20 |..    ..|..1     |
|000038a0| 20 e7 20 a9 66 69 65 6c | 64 24 28 69 25 29 3c 32 | . .fiel|d$(i%)<2|
|000038b0| 35 35 20 8c 20 66 69 65 | 6c 64 24 28 69 25 29 2b |55 . fie|ld$(i%)+|
|000038c0| 3d bd 28 63 68 61 72 29 | 0d 15 9a 09 20 20 20 20 |=.(char)|....    |
|000038d0| cb 0d 15 a4 15 20 20 20 | 20 6c 61 73 74 63 68 61 |.....   | lastcha|
|000038e0| 72 3d 63 68 61 72 0d 15 | ae 1f 20 20 20 20 63 68 |r=char..|..    ch|
|000038f0| 61 72 3d a4 6e 65 78 74 | 63 68 61 72 28 66 69 6c |ar=.next|char(fil|
|00003900| 65 70 74 72 29 0d 15 b8 | 47 20 20 fd 20 65 6e 64 |eptr)...|G  . end|
|00003910| 6f 66 64 61 74 61 20 84 | 20 69 25 3d 6d 61 78 66 |ofdata .| i%=maxf|
|00003920| 69 65 6c 64 20 84 20 28 | 6c 61 73 74 63 68 61 72 |ield . (|lastchar|
|00003930| 3d 65 6e 64 6f 66 6c 69 | 6e 65 20 80 20 63 68 61 |=endofli|ne . cha|
|00003940| 72 3d 65 6e 64 6f 66 6c | 69 6e 65 29 0d 15 c2 19 |r=endofl|ine)....|
|00003950| 20 20 f2 66 69 6e 64 73 | 74 61 72 74 28 66 69 6c |  .finds|tart(fil|
|00003960| 65 70 74 72 29 0d 15 cc | 18 20 20 c8 99 20 22 48 |eptr)...|.  .. "H|
|00003970| 6f 75 72 67 6c 61 73 73 | 5f 4f 66 66 22 0d 15 d6 |ourglass|_Off"...|
|00003980| 05 e1 0d 15 e0 04 0d 15 | ea 04 0d 15 f4 17 dd 20 |........|....... |
|00003990| f2 66 69 6e 64 73 74 61 | 72 74 28 f8 20 70 74 72 |.findsta|rt(. ptr|
|000039a0| 29 0d 15 fe 09 20 20 ea | 20 63 0d 16 08 27 20 20 |)....  .| c...'  |
|000039b0| c8 95 20 28 ac 20 65 6e | 64 6f 66 64 61 74 61 29 |.. (. en|dofdata)|
|000039c0| 20 80 20 63 68 61 72 3d | 65 6e 64 6f 66 6c 69 6e | . char=|endoflin|
|000039d0| 65 0d 16 12 09 20 20 20 | 20 f5 0d 16 1c 1d 20 20 |e....   | .....  |
|000039e0| 20 20 20 20 63 68 61 72 | 3d a4 6e 65 78 74 63 68 |    char|=.nextch|
|000039f0| 61 72 28 70 74 72 29 0d | 16 26 17 20 20 20 20 20 |ar(ptr).|.&.     |
|00003a00| 20 e7 20 63 68 61 72 3d | 97 22 3b 22 20 8c 0d 16 | . char=|.";" ...|
|00003a10| 30 0d 20 20 20 20 20 20 | 20 20 f5 0d 16 3a 1e 20 |0.      |  ...:. |
|00003a20| 20 20 20 20 20 20 20 20 | 20 63 3d a4 6e 65 78 74 |        | c=.next|
|00003a30| 63 68 61 72 28 70 74 72 | 29 0d 16 44 25 20 20 20 |char(ptr|)..D%   |
|00003a40| 20 20 20 20 20 fd 20 63 | 3d 65 6e 64 6f 66 6c 69 |     . c|=endofli|
|00003a50| 6e 65 20 84 20 65 6e 64 | 6f 66 64 61 74 61 0d 16 |ne . end|ofdata..|
|00003a60| 4e 0b 20 20 20 20 20 20 | cd 0d 16 58 20 20 20 20 |N.      |...X    |
|00003a70| 20 fd 20 63 68 61 72 3c | 3e 97 22 3b 22 20 84 20 | . char<|>.";" . |
|00003a80| 65 6e 64 6f 66 64 61 74 | 61 0d 16 62 07 20 20 ce |endofdat|a..b.  .|
|00003a90| 0d 16 6c 05 e1 0d 16 76 | 04 0d 16 80 04 0d 16 8a |..l....v|........|
|00003aa0| 16 dd 20 a4 6e 65 78 74 | 63 68 61 72 28 f8 20 70 |.. .next|char(. p|
|00003ab0| 74 72 29 0d 16 94 0c 20 | 20 70 74 72 2b 3d 31 0d |tr).... | ptr+=1.|
|00003ac0| 16 9e 22 20 20 e7 20 70 | 74 72 3e 3d 66 69 6c 65 |.."  . p|tr>=file|
|00003ad0| 74 6f 70 20 8c 20 65 6e | 64 6f 66 64 61 74 61 3d |top . en|dofdata=|
|00003ae0| b9 0d 16 a8 0f 20 20 3d | 3f 28 70 74 72 2d 31 29 |.....  =|?(ptr-1)|
|00003af0| 0d 16 b2 04 0d 16 bc 04 | 0d 16 c6 17 dd 20 f2 72 |........|..... .r|
|00003b00| 65 70 6f 72 74 28 6d 65 | 73 73 61 67 65 24 29 0d |eport(me|ssage$).|
|00003b10| 16 d0 12 20 20 21 74 65 | 6d 70 62 6c 6f 63 6b 3d |...  !te|mpblock=|
|00003b20| 30 0d 16 da 25 20 20 f2 | 64 6f 6c 6c 61 72 69 6e |0...%  .|dollarin|
|00003b30| 28 74 65 6d 70 62 6c 6f | 63 6b 2b 34 2c 6d 65 73 |(tempblo|ck+4,mes|
|00003b40| 73 61 67 65 24 29 0d 16 | e4 45 20 20 c8 99 20 22 |sage$)..|.E  .. "|
|00003b50| 57 69 6d 70 5f 52 65 70 | 6f 72 74 45 72 72 6f 72 |Wimp_Rep|ortError|
|00003b60| 22 2c 74 65 6d 70 62 6c | 6f 63 6b 2c 25 31 30 30 |",tempbl|ock,%100|
|00003b70| 30 31 2c 22 4d 65 73 73 | 61 67 65 20 66 72 6f 6d |01,"Mess|age from|
|00003b80| 20 22 2b 61 70 70 6e 61 | 6d 65 24 0d 16 ee 05 e1 | "+appna|me$.....|
|00003b90| 0d 16 f8 04 0d 17 02 04 | 0d 17 0c 11 dd 20 a4 77 |........|..... .w|
|00003ba0| 6f 72 64 28 61 64 64 72 | 29 0d 17 16 37 3d 61 64 |ord(addr|)...7=ad|
|00003bb0| 64 72 3f 30 2b 28 28 61 | 64 64 72 3f 31 29 3c 3c |dr?0+((a|ddr?1)<<|
|00003bc0| 38 29 2b 28 28 61 64 64 | 72 3f 32 29 3c 3c 31 36 |8)+((add|r?2)<<16|
|00003bd0| 29 2b 28 28 61 64 64 72 | 3f 33 29 3c 3c 32 34 29 |)+((addr|?3)<<24)|
|00003be0| 0d 17 20 04 0d 17 2a 04 | 0d 17 34 0e dd 20 a4 52 |.. ...*.|..4.. .R|
|00003bf0| 53 42 28 41 25 29 0d 17 | 3e 38 e7 20 94 28 52 53 |SB(A%)..|>8. .(RS|
|00003c00| 25 29 3e 3d 34 30 39 36 | 20 8c 20 85 20 32 30 30 |%)>=4096| . . 200|
|00003c10| 2c 22 52 53 42 20 56 61 | 72 69 61 62 6c 65 20 6c |,"RSB Va|riable l|
|00003c20| 69 6d 69 74 20 65 78 63 | 65 65 64 65 64 22 0d 17 |imit exc|eeded"..|
|00003c30| 48 0e 52 53 25 3d 52 53 | 25 2b 41 25 0d 17 52 0d |H.RS%=RS|%+A%..R.|
|00003c40| 3d 28 52 53 25 2d 41 25 | 29 0d 17 5c 04 0d 17 66 |=(RS%-A%|)..\...f|
|00003c50| 04 0d 17 70 0e dd 20 a4 | 52 53 57 28 41 25 29 0d |...p.. .|RSW(A%).|
|00003c60| 17 7a 38 e7 20 94 28 52 | 53 25 29 3e 3d 34 30 39 |.z8. .(R|S%)>=409|
|00003c70| 36 20 8c 20 85 20 32 30 | 30 2c 22 52 53 57 20 56 |6 . . 20|0,"RSW V|
|00003c80| 61 72 69 61 62 6c 65 20 | 6c 69 6d 69 74 20 65 78 |ariable |limit ex|
|00003c90| 63 65 65 64 65 64 22 0d | 17 84 0b 41 25 3d 41 25 |ceeded".|...A%=A%|
|00003ca0| 2a 34 0d 17 8e 1e 52 53 | 25 3d 28 28 52 53 25 2b |*4....RS|%=((RS%+|
|00003cb0| 33 29 80 26 46 46 46 46 | 46 46 46 43 29 2b 41 25 |3).&FFFF|FFFC)+A%|
|00003cc0| 0d 17 98 0d 3d 28 52 53 | 25 2d 41 25 29 0d 17 a2 |....=(RS|%-A%)...|
|00003cd0| 04 0d 17 ac 04 0d 17 b6 | 18 dd f2 65 78 74 65 6e |........|...exten|
|00003ce0| 64 5f 73 6c 6f 74 28 6e | 65 65 64 25 29 0d 17 c0 |d_slot(n|eed%)...|
|00003cf0| 1e 20 20 20 ea 20 6f 6c | 64 73 6c 6f 74 25 2c 63 |.   . ol|dslot%,c|
|00003d00| 75 72 72 65 6e 74 73 6c | 6f 74 25 0d 17 ca 46 20 |urrentsl|ot%...F |
|00003d10| 20 20 c8 99 20 22 57 69 | 6d 70 5f 53 6c 6f 74 53 |  .. "Wi|mp_SlotS|
|00003d20| 69 7a 65 22 2c 2d 31 2c | 2d 31 20 b8 20 6f 6c 64 |ize",-1,|-1 . old|
|00003d30| 73 6c 6f 74 25 20 20 20 | 20 20 20 20 3a 20 f4 20 |slot%   |    : . |
|00003d40| 52 65 61 64 20 63 75 72 | 72 65 6e 74 20 73 6c 6f |Read cur|rent slo|
|00003d50| 74 0d 17 d4 47 20 20 20 | c8 99 20 22 57 69 6d 70 |t...G   |.. "Wimp|
|00003d60| 5f 53 6c 6f 74 53 69 7a | 65 22 2c 6f 6c 64 73 6c |_SlotSiz|e",oldsl|
|00003d70| 6f 74 25 2b 6e 65 65 64 | 25 2c 2d 31 20 20 20 20 |ot%+need|%,-1    |
|00003d80| 20 20 20 3a 20 f4 20 54 | 72 79 20 74 6f 20 63 6c |   : . T|ry to cl|
|00003d90| 61 69 6d 20 6e 65 65 64 | 0d 17 de 4a 20 20 20 c8 |aim need|...J   .|
|00003da0| 99 20 22 57 69 6d 70 5f | 53 6c 6f 74 53 69 7a 65 |. "Wimp_|SlotSize|
|00003db0| 22 2c 2d 31 2c 2d 31 20 | b8 20 63 75 72 72 65 6e |",-1,-1 |. curren|
|00003dc0| 74 73 6c 6f 74 25 20 20 | 20 3a 20 f4 20 52 65 61 |tslot%  | : . Rea|
|00003dd0| 64 20 6e 65 77 20 63 75 | 72 72 65 6e 74 20 73 6c |d new cu|rrent sl|
|00003de0| 6f 74 0d 17 e8 1d 20 20 | 20 f4 20 44 69 64 20 77 |ot....  | . Did w|
|00003df0| 65 20 67 65 74 20 6f 75 | 72 20 6e 65 65 64 3f 0d |e get ou|r need?.|
|00003e00| 17 f2 28 20 20 20 e7 20 | 63 75 72 72 65 6e 74 73 |..(   . |currents|
|00003e10| 6c 6f 74 25 20 3c 20 6f | 6c 64 73 6c 6f 74 25 2b |lot% < o|ldslot%+|
|00003e20| 6e 65 65 64 25 20 8c 0d | 17 fc 49 20 20 20 20 20 |need% ..|..I     |
|00003e30| 20 85 20 39 39 39 2c 22 | 41 72 67 68 21 20 43 61 | . 999,"|Argh! Ca|
|00003e40| 6e 27 74 20 63 6c 61 69 | 6d 20 65 6e 6f 75 67 68 |n't clai|m enough|
|00003e50| 20 6d 65 6d 6f 72 79 20 | 74 6f 20 63 6f 6d 70 6c | memory |to compl|
|00003e60| 65 74 65 20 6f 70 65 72 | 61 74 69 6f 6e 21 21 22 |ete oper|ation!!"|
|00003e70| 0d 18 06 08 20 20 20 cc | 0d 18 10 31 20 20 20 20 |....   .|...1    |
|00003e80| 20 20 45 6e 64 5f 4f 66 | 5f 4d 65 6d 6f 72 79 25 |  End_Of|_Memory%|
|00003e90| 2b 3d 28 63 75 72 72 65 | 6e 74 73 6c 6f 74 25 2d |+=(curre|ntslot%-|
|00003ea0| 6f 6c 64 73 6c 6f 74 25 | 29 0d 18 1a 08 20 20 20 |oldslot%|)....   |
|00003eb0| cd 0d 18 24 05 e1 0d 18 | 2e 04 0d 18 38 04 0d 18 |...$....|....8...|
|00003ec0| 42 1c dd 20 f2 73 65 74 | 64 65 73 74 69 6e 61 74 |B.. .set|destinat|
|00003ed0| 69 6f 6e 28 6e 61 6d 65 | 24 29 0d 18 4c 44 20 20 |ion(name|$)..LD  |
|00003ee0| e7 20 c0 6e 61 6d 65 24 | 2c 31 29 3d 22 21 22 20 |. .name$|,1)="!" |
|00003ef0| 8c 20 64 65 73 74 6e 61 | 6d 65 24 3d c2 6e 61 6d |. destna|me$=.nam|
|00003f00| 65 24 2c a9 6e 61 6d 65 | 24 2d 31 29 20 8b 20 64 |e$,.name|$-1) . d|
|00003f10| 65 73 74 6e 61 6d 65 24 | 3d 6e 61 6d 65 24 0d 18 |estname$|=name$..|
|00003f20| 56 26 20 20 f2 64 6f 6c | 6c 61 72 69 6e 28 65 64 |V&  .dol|larin(ed|
|00003f30| 69 74 73 2b 46 5f 64 6f | 63 6e 61 6d 65 2c 6e 61 |its+F_do|cname,na|
|00003f40| 6d 65 24 29 0d 18 60 2c | 20 20 f2 64 6f 6c 6c 61 |me$)..`,|  .dolla|
|00003f50| 72 69 6e 28 65 64 69 74 | 73 2b 46 5f 64 6f 63 73 |rin(edit|s+F_docs|
|00003f60| 70 72 69 74 65 2c 22 53 | 22 2b 6e 61 6d 65 24 29 |prite,"S|"+name$)|
|00003f70| 0d 18 6a 2d 20 20 f2 73 | 65 74 73 74 61 74 65 73 |..j-  .s|etstates|
|00003f80| 28 69 6d 70 6f 72 74 77 | 69 6e 64 6f 77 2c 22 49 |(importw|indow,"I|
|00003f90| 5f 69 6d 70 64 6f 63 22 | 2c 30 2c 30 29 0d 18 74 |_impdoc"|,0,0)..t|
|00003fa0| 11 20 20 f2 74 72 79 6d | 65 72 67 65 6f 6e 0d 18 |.  .trym|ergeon..|
|00003fb0| 7e 05 e1 0d 18 88 04 0d | 18 92 04 0d 18 9c 12 dd |~.......|........|
|00003fc0| 20 a4 6c 65 61 66 28 70 | 61 74 68 24 29 0d 18 a6 | .leaf(p|ath$)...|
|00003fd0| 10 20 20 ea 20 64 6f 74 | 69 6e 64 65 78 0d 18 b0 |.  . dot|index...|
|00003fe0| 10 20 20 64 6f 74 69 6e | 64 65 78 3d 30 0d 18 ba |.  dotin|dex=0...|
|00003ff0| 1f 20 20 c8 95 20 a7 70 | 61 74 68 24 2c 22 2e 22 |.  .. .p|ath$,"."|
|00004000| 2c 64 6f 74 69 6e 64 65 | 78 2b 31 29 0d 18 c4 27 |,dotinde|x+1)...'|
|00004010| 20 20 20 20 64 6f 74 69 | 6e 64 65 78 3d a7 70 61 |    doti|ndex=.pa|
|00004020| 74 68 24 2c 22 2e 22 2c | 64 6f 74 69 6e 64 65 78 |th$,".",|dotindex|
|00004030| 2b 31 29 0d 18 ce 07 20 | 20 ce 0d 18 d8 1e 3d c2 |+1).... | .....=.|
|00004040| 70 61 74 68 24 2c a9 28 | 70 61 74 68 24 29 2d 64 |path$,.(|path$)-d|
|00004050| 6f 74 69 6e 64 65 78 29 | 0d 18 e2 04 0d 18 ec 04 |otindex)|........|
|00004060| 0d 18 f6 11 dd 20 f2 74 | 72 79 6d 65 72 67 65 6f |..... .t|rymergeo|
|00004070| 6e 0d 19 00 25 20 20 e7 | 20 66 69 6c 65 62 61 73 |n...%  .| filebas|
|00004080| 65 3c 3e 30 20 80 20 64 | 65 73 74 6e 61 6d 65 24 |e<>0 . d|estname$|
|00004090| 3c 3e 22 22 20 8c 0d 19 | 0a 0f 20 20 20 20 6d 65 |<>"" ...|..    me|
|000040a0| 72 67 65 3d b9 0d 19 14 | 3f 20 20 20 20 f2 73 65 |rge=....|?    .se|
|000040b0| 74 73 74 61 74 65 73 28 | 69 6d 70 6f 72 74 77 69 |tstates(|importwi|
|000040c0| 6e 64 6f 77 2c 22 49 5f | 65 64 69 74 2c 49 5f 70 |ndow,"I_|edit,I_p|
|000040d0| 72 69 6e 74 2c 49 5f 6e | 65 78 74 22 2c 30 2c 67 |rint,I_n|ext",0,g|
|000040e0| 72 65 79 29 0d 19 1e 18 | 20 20 20 20 f2 6d 65 72 |rey)....|    .mer|
|000040f0| 67 65 6e 65 78 74 72 65 | 63 6f 72 64 0d 19 28 1c |genextre|cord..(.|
|00004100| 20 20 20 20 f2 73 65 6e | 64 28 22 45 64 69 74 20 |    .sen|d("Edit |
|00004110| 4f 66 66 22 2c 2d 31 29 | 0d 19 32 07 20 20 cd 0d |Off",-1)|..2.  ..|
|00004120| 19 3c 05 e1 0d 19 46 04 | 0d 19 50 04 0d 19 5a 0f |.<....F.|..P...Z.|
|00004130| dd 20 f2 6d 65 72 67 65 | 6f 66 66 0d 19 64 19 20 |. .merge|off..d. |
|00004140| 20 f2 73 65 6e 64 28 22 | 45 64 69 74 20 4f 6e 22 | .send("|Edit On"|
|00004150| 2c 2d 31 29 0d 19 6e 10 | 20 20 66 69 6c 65 62 61 |,-1)..n.|  fileba|
|00004160| 73 65 3d 30 0d 19 78 0f | 20 20 66 69 6c 65 74 6f |se=0..x.|  fileto|
|00004170| 70 3d 30 0d 19 82 12 20 | 20 64 65 73 74 6e 61 6d |p=0.... | destnam|
|00004180| 65 24 3d 22 22 0d 19 8c | 0d 20 20 6d 65 72 67 65 |e$=""...|.  merge|
|00004190| 3d a3 0d 19 96 40 20 20 | f2 73 65 74 73 74 61 74 |=....@  |.setstat|
|000041a0| 65 73 28 69 6d 70 6f 72 | 74 77 69 6e 64 6f 77 2c |es(impor|twindow,|
|000041b0| 22 49 5f 65 64 69 74 2c | 49 5f 70 72 69 6e 74 2c |"I_edit,|I_print,|
|000041c0| 49 5f 6e 65 78 74 22 2c | 67 72 65 79 2c 67 72 65 |I_next",|grey,gre|
|000041d0| 79 29 0d 19 a0 2e 20 20 | f2 64 6f 6c 6c 61 72 69 |y)....  |.dollari|
|000041e0| 6e 28 65 64 69 74 73 2b | 46 5f 64 6f 63 73 70 72 |n(edits+|F_docspr|
|000041f0| 69 74 65 2c 22 53 77 68 | 61 74 66 69 6c 65 22 29 |ite,"Swh|atfile")|
|00004200| 0d 19 aa 2b 20 20 f2 64 | 6f 6c 6c 61 72 69 6e 28 |...+  .d|ollarin(|
|00004210| 65 64 69 74 73 2b 46 5f | 64 6f 63 6e 61 6d 65 2c |edits+F_|docname,|
|00004220| 22 44 6f 63 75 6d 65 6e | 74 22 29 0d 19 b4 2f 20 |"Documen|t").../ |
|00004230| 20 f2 64 6f 6c 6c 61 72 | 69 6e 28 65 64 69 74 73 | .dollar|in(edits|
|00004240| 2b 46 5f 64 61 74 61 73 | 70 72 69 74 65 2c 22 53 |+F_datas|prite,"S|
|00004250| 77 68 61 74 66 69 6c 65 | 22 29 0d 19 be 2c 20 20 |whatfile|")...,  |
|00004260| f2 64 6f 6c 6c 61 72 69 | 6e 28 65 64 69 74 73 2b |.dollari|n(edits+|
|00004270| 46 5f 64 61 74 61 6e 61 | 6d 65 2c 22 44 61 74 61 |F_datana|me,"Data|
|00004280| 66 69 6c 65 22 29 0d 19 | c8 24 20 20 f2 64 6f 6c |file")..|.$  .dol|
|00004290| 6c 61 72 69 6e 28 65 64 | 69 74 73 2b 46 5f 6e 75 |larin(ed|its+F_nu|
|000042a0| 6d 64 6f 6e 65 2c 22 30 | 22 29 0d 19 d2 24 20 20 |mdone,"0|")...$  |
|000042b0| f2 64 6f 6c 6c 61 72 69 | 6e 28 65 64 69 74 73 2b |.dollari|n(edits+|
|000042c0| 46 5f 6e 75 6d 6c 65 66 | 74 2c 22 30 22 29 0d 19 |F_numlef|t,"0")..|
|000042d0| dc 4c 20 20 f2 73 65 74 | 73 74 61 74 65 73 28 69 |.L  .set|states(i|
|000042e0| 6d 70 6f 72 74 77 69 6e | 64 6f 77 2c 22 49 5f 69 |mportwin|dow,"I_i|
|000042f0| 6d 70 64 6f 63 2c 49 5f | 64 61 74 61 62 61 73 65 |mpdoc,I_|database|
|00004300| 2c 49 5f 6e 75 6d 6c 65 | 66 74 2c 49 5f 6e 75 6d |,I_numle|ft,I_num|
|00004310| 64 6f 6e 65 22 2c 30 2c | 30 29 0d 19 e6 05 e1 0d |done",0,|0)......|
|00004320| 19 f0 04 0d 19 fa 04 0d | 1a 04 29 dd 20 f2 73 65 |........|..). .se|
|00004330| 74 73 74 61 74 65 73 28 | 77 69 6e 64 6f 77 2c 69 |tstates(|window,i|
|00004340| 63 6f 6e 24 2c 73 74 61 | 74 65 2c 6d 61 73 6b 29 |con$,sta|te,mask)|
|00004350| 0d 1a 0e 17 20 20 74 65 | 6d 70 62 6c 6f 63 6b 21 |....  te|mpblock!|
|00004360| 38 3d 73 74 61 74 65 0d | 1a 18 17 20 20 74 65 6d |8=state.|...  tem|
|00004370| 70 62 6c 6f 63 6b 21 31 | 32 3d 6d 61 73 6b 0d 1a |pblock!1|2=mask..|
|00004380| 22 07 20 20 f5 0d 1a 2c | 1a 20 20 20 20 74 65 6d |".  ...,|.    tem|
|00004390| 70 62 6c 6f 63 6b 21 30 | 3d 77 69 6e 64 6f 77 0d |pblock!0|=window.|
|000043a0| 1a 36 1c 20 20 20 20 74 | 65 6d 70 62 6c 6f 63 6b |.6.    t|empblock|
|000043b0| 21 34 3d a0 28 69 63 6f | 6e 24 29 0d 1a 40 29 20 |!4=.(ico|n$)..@) |
|000043c0| 20 20 20 c8 99 20 22 57 | 69 6d 70 5f 53 65 74 49 |   .. "W|imp_SetI|
|000043d0| 63 6f 6e 53 74 61 74 65 | 22 2c 2c 74 65 6d 70 62 |conState|",,tempb|
|000043e0| 6c 6f 63 6b 0d 1a 4a 1a | 20 20 20 20 e7 20 a7 69 |lock..J.|    . .i|
|000043f0| 63 6f 6e 24 2c 22 2c 22 | 29 3c 3e 30 20 8c 0d 1a |con$,","|)<>0 ...|
|00004400| 54 2a 20 20 20 20 20 20 | 69 63 6f 6e 24 3d c2 69 |T*      |icon$=.i|
|00004410| 63 6f 6e 24 2c a9 69 63 | 6f 6e 24 2d a7 69 63 6f |con$,.ic|on$-.ico|
|00004420| 6e 24 2c 22 2c 22 29 29 | 0d 1a 5e 09 20 20 20 20 |n$,","))|..^.    |
|00004430| cc 0d 1a 68 12 20 20 20 | 20 20 20 69 63 6f 6e 24 |...h.   |   icon$|
|00004440| 3d 22 22 0d 1a 72 09 20 | 20 20 20 cd 0d 1a 7c 10 |=""..r. |   ...|.|
|00004450| 20 20 fd 20 69 63 6f 6e | 24 3d 22 22 0d 1a 86 05 |  . icon|$=""....|
|00004460| e1 0d 1a 90 04 0d 1a 9a | 04 0d 1a a4 1c dd 20 a4 |........|...... .|
|00004470| 73 65 6c 65 63 74 65 64 | 28 77 69 6e 64 6f 77 2c |selected|(window,|
|00004480| 69 63 6f 6e 29 0d 1a ae | 18 20 20 74 65 6d 70 62 |icon)...|.  tempb|
|00004490| 6c 6f 63 6b 21 30 3d 77 | 69 6e 64 6f 77 0d 1a b8 |lock!0=w|indow...|
|000044a0| 16 20 20 74 65 6d 70 62 | 6c 6f 63 6b 21 34 3d 69 |.  tempb|lock!4=i|
|000044b0| 63 6f 6e 0d 1a c2 27 20 | 20 c8 99 20 22 57 69 6d |con...' | .. "Wim|
|000044c0| 70 5f 47 65 74 49 63 6f | 6e 53 74 61 74 65 22 2c |p_GetIco|nState",|
|000044d0| 2c 74 65 6d 70 62 6c 6f | 63 6b 0d 1a cc 25 3d 28 |,tempblo|ck...%=(|
|000044e0| 28 28 74 65 6d 70 62 6c | 6f 63 6b 21 32 34 29 80 |((tempbl|ock!24).|
|000044f0| 73 65 6c 65 63 74 29 3d | 73 65 6c 65 63 74 29 0d |select)=|select).|
|00004500| 1a d6 04 0d 1a e0 04 0d | 1a ea 25 dd 20 a4 63 6f |........|..%. .co|
|00004510| 75 6e 74 72 65 63 6f 72 | 64 73 28 66 69 6c 65 62 |untrecor|ds(fileb|
|00004520| 61 73 65 2c 66 69 6c 65 | 74 6f 70 29 0d 1a f4 2a |ase,file|top)...*|
|00004530| 20 20 ea 20 65 6e 64 6f | 66 64 61 74 61 2c 63 68 |  . endo|fdata,ch|
|00004540| 61 72 2c 6c 61 73 74 63 | 68 61 72 2c 63 25 2c 66 |ar,lastc|har,c%,f|
|00004550| 69 6c 65 70 74 72 0d 1a | fe 17 20 20 c8 99 20 22 |ileptr..|..  .. "|
|00004560| 48 6f 75 72 67 6c 61 73 | 73 5f 4f 6e 22 0d 1b 08 |Hourglas|s_On"...|
|00004570| 16 20 20 66 69 6c 65 70 | 74 72 3d 66 69 6c 65 62 |.  filep|tr=fileb|
|00004580| 61 73 65 0d 1b 12 0a 20 | 20 63 25 3d 30 0d 1b 1c |ase.... | c%=0...|
|00004590| 11 20 20 65 6e 64 6f 66 | 64 61 74 61 3d a3 0d 1b |.  endof|data=...|
|000045a0| 26 14 20 20 63 68 61 72 | 3d 65 6e 64 6f 66 6c 69 |&.  char|=endofli|
|000045b0| 6e 65 0d 1b 30 19 20 20 | f2 66 69 6e 64 73 74 61 |ne..0.  |.findsta|
|000045c0| 72 74 28 66 69 6c 65 70 | 74 72 29 0d 1b 3a 07 20 |rt(filep|tr)..:. |
|000045d0| 20 f5 0d 1b 44 13 20 20 | 20 20 f2 6e 65 78 74 72 | ...D.  |  .nextr|
|000045e0| 65 63 6f 72 64 0d 1b 4e | 0d 20 20 20 20 63 25 2b |ecord..N|.    c%+|
|000045f0| 3d 31 0d 1b 58 11 20 20 | fd 20 65 6e 64 6f 66 64 |=1..X.  |. endofd|
|00004600| 61 74 61 0d 1b 62 18 20 | 20 c8 99 20 22 48 6f 75 |ata..b. | .. "Hou|
|00004610| 72 67 6c 61 73 73 5f 4f | 66 66 22 0d 1b 6c 07 3d |rglass_O|ff"..l.=|
|00004620| 63 25 0d 1b 76 04 0d 1b | 80 04 0d 1b 8a 11 dd 20 |c%..v...|....... |
|00004630| f2 64 6f 6e 65 72 65 63 | 6f 72 64 0d 1b 94 0f 20 |.donerec|ord.... |
|00004640| 20 e7 20 6d 65 72 67 65 | 20 8c 0d 1b 9e 12 20 20 | . merge| .....  |
|00004650| 20 20 6e 75 6d 6c 65 66 | 74 2d 3d 31 0d 1b a8 12 |  numlef|t-=1....|
|00004660| 20 20 20 20 6e 75 6d 64 | 6f 6e 65 2b 3d 31 0d 1b |    numd|one+=1..|
|00004670| b2 2b 20 20 20 20 f2 64 | 6f 6c 6c 61 72 69 6e 28 |.+    .d|ollarin(|
|00004680| 65 64 69 74 73 2b 46 5f | 6e 75 6d 6c 65 66 74 2c |edits+F_|numleft,|
|00004690| c3 6e 75 6d 6c 65 66 74 | 29 0d 1b bc 2b 20 20 20 |.numleft|)...+   |
|000046a0| 20 f2 64 6f 6c 6c 61 72 | 69 6e 28 65 64 69 74 73 | .dollar|in(edits|
|000046b0| 2b 46 5f 6e 75 6d 64 6f | 6e 65 2c c3 6e 75 6d 64 |+F_numdo|ne,.numd|
|000046c0| 6f 6e 65 29 0d 1b c6 3a | 20 20 20 20 f2 73 65 74 |one)...:|    .set|
|000046d0| 73 74 61 74 65 73 28 69 | 6d 70 6f 72 74 77 69 6e |states(i|mportwin|
|000046e0| 64 6f 77 2c 22 49 5f 6e | 75 6d 6c 65 66 74 2c 49 |dow,"I_n|umleft,I|
|000046f0| 5f 6e 75 6d 64 6f 6e 65 | 22 2c 30 2c 30 29 0d 1b |_numdone|",0,0)..|
|00004700| d0 07 20 20 cd 0d 1b da | 05 e1 0d 1b e4 04 0d 1b |..  ....|........|
|00004710| ee 04 0d 1b f8 18 dd 20 | f2 72 75 6e 61 70 70 28 |....... |.runapp(|
|00004720| 61 70 70 5f 70 61 74 68 | 24 29 0d 1c 02 2a 20 20 |app_path|$)...*  |
|00004730| c8 99 20 22 57 69 6d 70 | 5f 53 74 61 72 74 54 61 |.. "Wimp|_StartTa|
|00004740| 73 6b 22 2c 22 52 75 6e | 20 22 2b 61 70 70 5f 70 |sk","Run| "+app_p|
|00004750| 61 74 68 24 0d 1c 0c 05 | e1 0d 1c 16 04 0d 1c 20 |ath$....|....... |
|00004760| 04 0d 1c 2a 3e f4 20 54 | 68 65 73 65 20 66 75 6e |...*>. T|hese fun|
|00004770| 63 74 69 6f 6e 73 20 69 | 6d 70 6c 65 6d 65 6e 74 |ctions i|mplement|
|00004780| 20 64 6f 6c 6c 61 72 20 | 61 73 20 69 74 20 73 68 | dollar |as it sh|
|00004790| 6f 75 6c 64 20 68 61 76 | 65 20 62 65 65 6e 21 0d |ould hav|e been!.|
|000047a0| 1c 34 4b f4 20 49 45 2e | 20 74 68 65 79 20 64 6f |.4K. IE.| they do|
|000047b0| 20 6e 6f 74 20 61 73 73 | 75 6d 65 20 74 68 61 74 | not ass|ume that|
|000047c0| 20 73 74 72 69 6e 67 73 | 20 77 69 6c 6c 20 62 65 | strings| will be|
|000047d0| 20 74 65 72 6d 69 6e 61 | 74 65 64 20 62 79 20 41 | termina|ted by A|
|000047e0| 53 43 49 49 20 31 33 2e | 2e 2e 0d 1c 3e 04 0d 1c |SCII 13.|....>...|
|000047f0| 48 17 dd 20 a4 64 6f 6c | 6c 61 72 6f 75 74 28 61 |H.. .dol|larout(a|
|00004800| 64 64 72 25 29 0d 1c 52 | 0d 20 20 ea 20 63 25 2c |ddr%)..R|.  . c%,|
|00004810| 73 24 0d 1c 5c 0b 20 20 | 53 24 3d 22 22 0d 1c 66 |s$..\.  |S$=""..f|
|00004820| 0f 20 20 63 25 3d 3f 61 | 64 64 72 25 0d 1c 70 0f |.  c%=?a|ddr%..p.|
|00004830| 20 20 c8 95 20 63 25 3e | 3d 33 32 0d 1c 7a 0f 20 |  .. c%>|=32..z. |
|00004840| 20 20 20 73 24 2b 3d bd | 63 25 0d 1c 84 10 20 20 |   s$+=.|c%....  |
|00004850| 20 20 61 64 64 72 25 2b | 3d 31 0d 1c 8e 11 20 20 |  addr%+|=1....  |
|00004860| 20 20 63 25 3d 3f 61 64 | 64 72 25 0d 1c 98 07 20 |  c%=?ad|dr%.... |
|00004870| 20 ce 0d 1c a2 07 3d 73 | 24 0d 1c ac 04 0d 1c b6 | .....=s|$.......|
|00004880| 19 dd 20 f2 64 6f 6c 6c | 61 72 69 6e 28 61 64 64 |.. .doll|arin(add|
|00004890| 72 25 2c 73 24 29 0d 1c | c0 0f 20 20 24 61 64 64 |r%,s$)..|..  $add|
|000048a0| 72 25 3d 73 24 0d 1c ca | 13 20 20 61 64 64 72 25 |r%=s$...|.  addr%|
|000048b0| 3f a9 28 73 24 29 3d 30 | 0d 1c d4 05 e1 0d 1c de |?.(s$)=0|........|
|000048c0| 04 0d 1c e8 04 0d 1c f2 | 50 f4 20 20 54 68 69 73 |........|P.  This|
|000048d0| 20 70 72 6f 63 65 64 75 | 72 65 20 73 6c 69 64 65 | procedu|re slide|
|000048e0| 73 20 74 68 65 20 65 6e | 76 65 6c 6f 70 65 73 20 |s the en|velopes |
|000048f0| 61 63 72 6f 73 73 20 74 | 68 65 20 6d 65 72 67 65 |across t|he merge|
|00004900| 20 62 6f 78 20 74 6f 20 | 73 68 6f 77 20 74 68 61 | box to |show tha|
|00004910| 74 20 74 68 65 0d 1c fc | 2f f4 20 20 6e 65 78 74 |t the...|/.  next|
|00004920| 20 72 65 63 6f 72 64 20 | 69 73 20 61 62 6f 75 74 | record |is about|
|00004930| 20 74 6f 20 62 65 20 64 | 65 61 6c 74 20 77 69 74 | to be d|ealt wit|
|00004940| 68 2e 2e 2e 0d 1d 06 15 | dd 20 f2 73 68 6f 77 6e |h.......|. .shown|
|00004950| 65 78 74 72 65 63 6f 72 | 64 0d 1d 10 05 e1 0d 1d |extrecor|d.......|
|00004960| 1a 04 0d ff             |                         |....    |        |
+--------+-------------------------+-------------------------+--------+--------+